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ABSTRACT 


A digital computer program was developed to 
analyze a flexible rotor~bearing system. The 
program can be used to predict the dynamic 
perfonaance under various operating conditions o 
An experimental test program was conducted ' 
utilizing a Mark-25 pump rotor, in a vacuum, to 
generate spin test data to be used for correlation 
with results of computer simulations of similar 
rotor unbalance conditions. The mathematical 
formulations, the computer program verification, ' 
the simulation model and test results are 
presented and discussed. 
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SDMMARY 


A 10-month study contract, NAS 3-13219 ^ was initiated to update the 
digital computer program that evolved from a previous study, NAS 3-7996. 
The work was conducted in three parts. They were 1) update the flexible 
rotor digital computer program, 2) perform experimental spin tests to 
generate data, and 3) simulate the experimental tests using the computer 
program and determine the degree of correlation. 

A flexible-rotor dynamic analy^sis computer program based on Newton* s 
laws of dynamics has been written and computation results verified. The 
rotor spin and whirl motion were treated as independent but dynamically 
interacting parameters. Accordingly various whirl- to- spin frequency 
ratios can be developed as the dynamics relationship dictates. The spin 
speed of the rotor is controlled by torque applied and combined stiffness, 
dissipation and inertial loading functions in spin and transverse motion. 
Both in-phase and out-of -phase stiffness and damping functions are 
included at all rotor stations. Computation results are of both printout 
and CRT graph types. After debugging, the computer program was verified 
in three separate verification steps and the computation results were 
found to be in good agreement with those from manual and other machine 
computations. User’s instructions are also provided. 

The experimental test program, utilizing a Mark- 25 p^p rotor, was 
performed to obtain data for correlation wibh the results of the computer 
program. The test program consisted of a series of high-speed balancing 
tests and the eight investigative tests. The investigative tests were 
simulated with the computer program, and the correlation between 
theoretical and test results was not very close. Some degree of 
correlation existed for unbalance conditions at the inducer end of the 
rotor. Apparently the rotor modeling was not sufficiently descriptive. 
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The computer program as developed under this study contract can he 
used as a tool in predicting the dynamic performance of a flexible 
rotor-bearing system under various operating conditions. 

Recommendations are made for further studies to improve the degree of 
correlation and to increase the computer program capability* 
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INTRODUCTION 


As a continuing effort in advancing the state-of-the-art in rotordynamic 
analysis, a 10 month program v/as initiated to develop a computer program 
to permit more accurate analysis of rotating assemblies, and to apply 
this program to predictions of the dynamic behavior of the Rocket dyne 
Mark - 25 pump rotor. 

The program was accomplished in three tasks: (l) revising and updating 

the computer program, (2) performing spin tests, and ( 3 ) simulation of 
the experimental data utilizing the computer program. 

The mathematical formulation used for the effort reported in this con- 
tract, although based on the same general principle as the previous 
study (Contract NAS3-7996), has been completely re^;sri^ten to include the 
following parameters required by the contract 

1. Rotor flexibility due to both shear and bending 

2 . Damping functions 

3 . Non-isotropic bearing mounts 
Nonlinear bearing spring rates 

5 . Multiple bearing supports 

and the following additional items: 

6. Linear, speed- sensitive, support bearing stiffness j 

7 . Enlarged maximum number of rotor- stations to 2^, from 12, 

8. A displacement vector rotating coordinate system (whirl), as 
opposed to the spin- speed rotating coordinate used in the 
1967 contract 5 and 

9 . Up-dating the CRT graphs to include multiple-bearing output 
data plots. 

In addition, spin tests utilizing the Mark-25 pump rotor were performed 
in the Rocketdyne rotor dynamics facility, for correlation with the 
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results of the flexible rotor dynamics computer program. 

Simulation of the spin test and high speed balancing data was performed 
with the computer program, utilizing as program inputs the experimentally 
introduced unbalances. 

A checked-out operating computer card deck for the flexible rotor dynamics 
computer program was delivered to the NASA Project Manager o 

This final report presents the results of the research program conducted 
4 September 1969 through 1 May 1970. During the course of develomsnt of 
the computer program, certain shortcomings in the program were noted « 
Conclusions and recommendations are given towards further improving the 
program computational-to-real time ratio and other rotordynamic parameters o 
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MATHEMATICAL 3F0RMULATI0N (THEORY) 


In writing the governing equations of a" dynamic system, two general 
approaches may be taken, the energy approach and the momentum approach o 
Tne former is generally accomplished by means of Lagrange equations and 
the latter is carried out according to Newton* s Laws of Dsmamics* When the 
traction vs displacement relationship of a dynamic system can be clearly 
seen, it is faster and more direct to use the momentum approach as 
it is adopted in this analysis. 

The basic assumptions made in the fomulation of the general mathematical 
model are: 

1# Representation of a continuous, elastic and distributed mass 
rotor by a set of discrete masses connected by weightless, 
elastic shaft sections o The polar and diametral mass moments 
of inertia and the mass of a rotor section are suitably Itmiped 
at the adjacent mass stations o The analysis of the transverse 
rotordynamic problem is based on a lumped parameter model o With 
an adequate number of discrete mass stations, the dynamic per- 
formance of a rotor can be accurately simulated© 

2© Small lateral displacement of a rotor in comparison with the 
sectional length of a rotor*© This assumption is qtiite 
realistic for all rotor dynamics analysis* Under this 
assumption, the linear moduli of elasticity of the rotor may be 
used in establishing load and deflection relationship* 


* Sectional length of a rotor refers to the length of a rotor section 
between adjacent discrete mass stations© 
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3. An axisynanetric rotor geometry and rotor mechanical properties 
are assumed. VJhile a nonaxisymmetric rotor section will not 
introduce any solution difficulties, it would result in a very 
time-consixming computation process. The inclusion of the non- 
axisymmetric rotor design consideration in a computer analysis 
is generally not justified as most rotor geometries are or can 
be considered axisymmetric . 

ii. The foundation of the rotating machinery is anchored to the 

secondary frame of reference XYZ in Fig. 1. The secondary 

frame of reference is permitted to have only translatoiy motion 

at a constant velocity with respect to the inertial axes 

X y 2 . The surface of the earth may be considered as a 

secondary inertial frame of reference vri.th a constant velocity 

relative to the inertial frame of reference X Y 2 . Small 

0 0 0 

angular motion of the secondary frame of reference from the 
earth rotation will have negligible effects on the dynamics 
of rotors except those of a gyroscope type of instrument. 

Based on the above assumptions, a set of rotordynamics governing equations 
may be bitten. Figure 2 depicts a dynamic configuration of a rotor and 
its casing, and defines certain notations used in the equations. Figure 3 
shov/s that the coordinates X^ and Y^ refers to the geometrical center of 
a rotor section. 

EQUATIONS 


The following 22 equations constitute the mathematical formulation for 
the physical model shovm in Figure 2: 
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r 1 [ r 

(Yi+5r)cos(0+(X. 




-jXi+5,jsiN(0 + a.)l; 




r it * 

Eq, (1) defines the torsional moment equilibrium relationship about 

Z-axis. The first group of terms, 
ri r 


fl) 


L 


P. L t 


represents the inertia torque from the rotor polar mass moments of inertia 
about the rotor elastic centers. The second group, 

(Y^+>gY)cos(0+(x-j -(^^'^3x)s)N(0+aJ I 

denotes the torque derived from the rotor mass inertia forces. The third 

n 


group 


'X! 


is a summation of all rotor spin speed sensitive and constant dissipative 
torques, and 






0 


■ ■''■22 -r ■ -'Z3 

The last group represents the spin speed sensitive and constant rotor 
drive torques. 
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Sqs. (2) and (3) summarize all forces specified at rotor station x 
along X and Y axis, respectively. 
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The first group in Eq. (2) and similarly with Eq. (3). 



defines the inertia and gravity and/or G-loading forces along X-axis. 
The second group. 



are in-phase stiffness force, in-phase damping force, out-of -phase 
stiffness force and out-of -phase damping force respectively. The 
in-phase force is in line but opposite to the displacement or velocity 
vector and the out-of -phase force leads 90 ° from the displacement 
or velocity vector. The third group 



represents the rotor surface forces at a rotor station. They are the 
combined rotor-spin and whirl speed sensitive out-of-phase stiffness and 
damping forces. These forces may be generated in a non- synchronous whirl 
motion such as that encountered in a fluid-film bearing or similar 
components. The last group. 
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denotes the nonlinear bearing forces at a bearing station. ^ is a 

rotor spin speed constant and 0 is the actual rotor spin speed. 

« • 

(0 0q) is used to simulate the spin speed sensitive bearing 

stiffness at zero journal displacement. is the spin speed and 

journal displacement sensitive stiffness coefficient. Xg^ and Tg^ are 
the journal displacement coordinates and is the lower bearing 

displacement limit for K th bearing stiffness section of bearing i. 
Kg^ is the journal displacement sensitive bearing stiffness. 



is the nonlinear bearing stiffness force function, and the X-component 

damping force at the bearing. 

Eqs. (h) and {$) describe all the specified moments defined about 
X and X axis respectively. 

+{0)cos[0^7;.))j 

^ +A-( h-th ) 0cos{0^?- )J 

t.) 

( 4 ) 
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= Ij,. (irihA(i,^(-)[0cos(0+^) 

-(0)s/n(0+^.)] 

[{^..7 ^-.1-A I L+/J0sin{0+X')] 
+K^c(v\'J +c^c!i-x-,l 

-K^pc(x,,7X,_j xj 

- ^ ) ( x^,-x . J - (0 - c,,, 4) {x„ - X. J 

( 5 ) 

The first group in Eq. (U)> and similarly with Eq. (^) 

^Di [’'i.l - \-l -Pi[Vl " *Ti))_ 

denotes the inertial moment resulting from the transverse mass moment 
of inertia at a rotor station. In calculating the bending moments at 
a rotor station the slopes and their time derivatives are approximated 
by that of the chord joining the rotor centers at the adjacent stations. 
Using the chord approximations of the slopes the number of unknowns 
involved in the solution of the rotordynaraics equations was substantially 
reduced* Two additional unknown variables at each station, i.e*, the force 
and moment slope coefficients would otherwise have to be included, in the 
rotordynamics equations* pi and are the initial misalignment 

and angular orientation pf the axis of the' mass moments of inertia with 
respect to rotor elastic center line and initial rotor spin angular 
position respectively* 
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The second group. 






represents the inertia moment from the polar mass moment of inertia at 
a rotor station. 


The third group 

denotes the rotor surface forces and they are the in-phase stiffness and 
damping moment due to a rotor misalignment motions with respect to the 
rotor casing or bearing at a rotor station. 


The fourth group, 

ViK*x-^i-x) 

similarly represents the rotor surface moments consisting of the out-of- 
phase stiffness and damping moment from rotor misalignment motions. 


The last group. 




‘0HDi 


^ I ^i+X ■ ’^i-X * ^ " ®^i^i)(^i+X " ^i-X, 


denotes the rotor surface moments. They are the out-of-phase, rotor spin 
and whirl sensitive stiffness and damping moments, similar to the third 
group in Eq. (2) or (3). 

Eqs. (6) and (7) define the force and moment and equilibrium relationships 
in XZ and YZ planes. This is where the force and moment influence co- 
efficients c. . and b. . are used to solve the basic rotordynamics equations 
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for every rotor station except that for the first and last non-linear bear- 
ings. The basic rotordynaraics equations for the first and last bearing 
stations are Eqs. (8) through (ll). To solve the system of rotordynaraics 
equations, first convert into the rotating coordinates and then substitute 

F F M , and M . functions in Eqs. (2) through (5) into Eqs. (6) 
xx^ yx' yx XX x / o 

through (ll). The values of c^^ and b^^ used are computed in subroutine 
"INFLC0." 

Eqs. (l) and (6) through (ll) are solved simultaneously for the accelera- 
tion terms by means of ISIMDD subroutine. Using the current values of the 
acceleration and velocity terms, integration over a time interval will be 
made to obtain the solution for a rotor motion corresponding to a new real 
time. The process repeats for each time interval until a desired total 
time period for rotor motion is covered. 

The influence coefficients are calculated by finding the rotor deflections 
(in.) at various stations when a unit transverse force (l lb) or unit trans- 
verse moment (l in- lb) is applied at a station. Rotor deflections consider- 
ing rotor shear and bending elasticity are separately computed and then 
combined. The influence coefficients are based on the rotor- configuration 
supported on two knife-edge bearings located at the first and last support 
bearings. The rotor dynamic relationship at these two bearings are defined 
by Eqs. (8) through (ll). Sample results in force and moment influence co- 
efficients are shown in Appendix A. The meaning of row and column numbers 
in relation to the definitions of the influence coefficients is explained. 

n 

I 

L 


C-j + Myt 


+ Xi 


tl 






-Xj = 0 


( 6 ) 



1. 





+ Y, 


bi 


+ 




L J 


0 


(7) 
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Eqs* (8), (9), (10) and (ll) denote the -moment and force equilibrium 
relationships for the first and last nonlinear bearing station in X-Z 
and Y-Z plane, respectively. These equations are solved simultaneously 
with Eqs. (6) and (?). 





0 


( 8 ) 



L 


0 



L 



Z. 




+ M, 


= 0 


I 



0 


( 9 ) 


(lo) 


( 11 ) 


lU 



Eqs* (12) and (lU) denote the force equilibrium relationships at the 
bearing-and-mount station along X and T axis, respectively* The bearing and 
mount damping forces are not included* Since zero bearing mass assumption 
is used, the stiffness force in the bearing should only equal that in 
the mount and similar relationship exists for the damping forces* 



Eqso ( 13 ) and ( 15 ) are expressions for and ^ Eqs* (12) and (lU) 

respectively. 
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Eqs* (12) through (l5) establish the nonlinear bearing and mount stiffness 
forces along X and Y axes. The purpose of these equations is to solve for 
the nonlinear bearing journal displacements through an interative process, 
a faster method than the closed form solution. 


Eqs. (l6) through (21) define the various coordinates used in the 
basic rotordynaraics equations. Under the zero bearing mass assumption, 
the bearing damping can be expressed in terms of the combined bearing-and- 
raount damping forces. The relationships are shown in Eqs (l6) through 
(19). 




-6X1. 


Xi 




(16) 


V = 






(17) 


= 




'M/C 


(18) 




CsYi: Yc 


(19) 
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Also based on zero-bearing-mass assumption the journal and mount dis- 
placement are collinear as shown in Eqs. (2Q) and (21). 


- Xbc (20) 

- Yg: (21) 


Eq. (22) defines the whirl speed of shaft center at station i. 


Uc ~ 


Y.-Xz- XcY^ 
X-+ Yt’- 


( 22 ) 


17 



XYZ IS THE SECOHDARY n?AH£ OF 
REFERENCE TO WHICH THE ROTOR CASIHG 
FDUHOATION IS ATTACKEO 



Figure 1 


Helatlon Bctveen the Secondary Frame of Reference 
and an Inertial Frame of Reference 
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The rotating coordinate system (Fig. 3) is used to reduce the integration 
time as it provides lower acceleration magnitude compared with that from 
conventional stationary coordinate system. The origin of the rotating 
coordinates coincides with the static rotor center at a station. 

The static rotor center corresponds to that- caused by and for 
the rotor with zero spin speed. The rotating coordinates used are syn- 
chronous with the rotor displacement vector at that rotor station. Let 
the static deflections at a rotor station be AX^andAY^j and/?^ and 
0. be the displacement vector and angular displacement of the rotating 
coordinates respectively. Then 

\ ^ ^i^®^ ®i ^i 

Y. P^SIN + AY^ 

Differentiate once and twice with respect to time and using appropriate 
substitution, one obtains, 

= P^COS 

Y. = p.siN e. + P.e.cos e. 

®i ®i ®i 

Yf = eX + P^e^ cos + p\sin + e^P^cos 


The variables X^, Y^, and their time derivatives in the rotordynamic 
equations are then replaced with the equivalent rotating coordinates 
prior to the solution of the rotordynamic s equations. 
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ROTOR EUSTIC ROTOR MASS ECCM- ROTOR MASS CENTER 



Figure 3 


Rotating and Secondary Coordinate Systems Used in the Mathematical Model 



NOMENCLjmmE 




"beariiig location notation, ^ implies a bearing at 

station i; - 0, no bearing at station i dimensionless 

moment and force influence coefficient, in/( in-lb) and 
in/lb, respectively 


"Bik 


Bi 


rotative speed sensitive bearing stiffness displacement 
coefficient for kth stiffness section of bearing i; for 
dimension, see Note 2 

bearing damping coefficient for and ( lb-sec )/in 


°BXi’ 


“Fi 


equivalent bearing-and-«iount damping coefficients for 
respectively, ( lb-sec )/in 

whirl frequency factor for damping force coefficient, 
dimensionless 


^HDi 


C. 

1 






out-of -phase whirl-frequency sensitive damping force 
coefficient, (lb-sec^)/(in-radian) 

in-phase damping force and moment coefficient due to 
relative motion between rotor and casing 
( lb-sec )/in and ( in-lb-sec )/rad, respectively 

non-isotropic mount damping coefficient for 
respectively, ( lb-sec ) /in 


C . 
pi 




C 


Zi 


= out-of -phase damping force and moment coefficient due to 

relative motion between rotor and casing 
(lb-sec )/in and ( in-lb-sec )/rad, respectively 

= torsional friction exponent, Eqo (l), dimensionless 
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^Zli’ ^Z2i 


torsional friction coefficients, Eq<> (l), 
dimension of or In in-lb 



damping moment coefficient, (lb-in-sec)/rad. 

vhirl-frequency factor for damping mcanent coefficient, 
dimensionless 




®BiK’ ®B1K 


F • P 
xi’ V 


«y 


out-of “phase , whirl frequency sensitive, damping moment 
coefficient, (ib-in-sec^Vradian^ 

nonlinear hearing stiffness coefficients for kth stiffness 
section of hearing io For dimension, see Note lo 

mass eccentricity at rotor station i, in 

forces in X and Y direction, Ih 

2 

gravity or g-loading in X and Y direction, in/sec 


®Bik 


nonlinear hearing stiffness exponent for kth stiffhess 
section of hearing io For dimension, see Note 1 


^Pi 


rotor diametral and polar mass mcmients of inertia at 
2 

station i, Ih-in-sec , respectively 




rotative-speed sensitive hearing stiffness coefficient for 
Kth stiffness section of hearing i, Ih/in 

« whirl frequency factor for stiffhess force coefficient, 
dimensionless 

s= in-phase stiffness force and moment coefficient due to 
relative motion between rotor and casing at station i, 
Ih/in and(ii>-lh)/rad, respectively* 
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= out-of-phase hydrodynamic force and moment coefficient of 
balance piston, (lb-sec)/(in-rad) and (lb-in-sec)/rad^, 
respectively 

^Wi ~ non-isotropic stiffness coefficients for 
respectively, Ib/in 

Kpi, =: out-of-phase stiffness force and moment coefficient due to 

the relative motion between rotor and casing at station i, 
Ib/in and in-lb/rad, respectively 

“ whirl frequency factor for stiffness moment coefficient, 
dimensionless 

1^ = rotor section length between the adjacent mass stations i 

and i + 1, in 

L s= length between bearings No, 1 and KB, in 

m^ = rotor mass at station i, (lb-sec^)/in 

^xi’^i’^zi ~ ffiODie^its about X, Y, and Z axes, respectively, in/lb 

= exponent for speed sensitive rotor drive torque coefficient 

U 

^Z1’^Z2*^Z3 “ coefficients for rotor drive torque, 

dimensions of ^^ 2 ^, or are in-lb 

n = total number of rotor discrete mass stations, dimensionless 

^Bik ~ rotative-speed sensitive bearing stiffness coefficient for 

Kth stiffness section of bearing io For dimension, see 
Note 2. 




NB = The last bearing number, or total number of non-linear 

stiffness bearings* 

Q = length between No, NB bearing and mass station 1, in 


2h 



s 

t 


= length between No. 1 bearing and the mass station 1, in 
= real time, sec 




bearing displacement and velocity coordinates, 
in and in/sec, respectively 

mount displacement and velocity coordinates, in and 
in/sec, respectively 

displacement of the rotor geometrical center from its 
zero-load position in X and T direction, respectively, 
at station i, in 


XYZ 


X Y Z 


o o o 


= the secondary frame of reference to which the 
rotor casing is attached (Fig. 3) 

= an inertial frame of reference (Figo l) 


Z. 

X 


= Z coordinate of ith mass from first mass, in 




0 


= orientation of the ith mass eccentricity vector from 
that of the first rotor mass measured in the direction 
of rotation, rad 

« angular whirl velocity of the rotor geometric center 
at station i, rad/sec 

= a spin speed sensitive bearing stiffness parameter, 
rad/sec as defined in Eq® (2), (3), (l2) and (14) 

= spin speed angular displacement of the torsionally 
rigid rotor, measured from the positive X-axis, rad 
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NOTE 1; 


NOTE 2: 


A 

y± 


Bik 


Group dimension of 
is Ib/ino 




^v4 


Group dimension of (0 - 0^) + 83^ ^4 4" '^Bik^ 

is the same as that of Kg^. 

initial misalignment between the axis of the mass moments 
of inertia and the elastic axis of rotor section i, radians 

angular position of the X-Y plane projection of the axis 
of ith mass moments of inertia measured from that of the 
first, radians 

lower bearing displacement limit for kth bearing stiffness 
section of bearing i, in 


P *= 

BXi’^BYi 


as defined by Eqso (l5) and (l5), respectively, in. 


Subscripts 

i = pertinent to the ith station or ith rotor section 

bl, b2 = pertinent to first and last nonlinear bearing 
stations respectively 

Time Derivative Notation 

X, X... = §£,9 respectively, in/sec, in/sec^ 

dt dt^ 

0, 0 = cL0 , respectively, rad/sec, rad/sec^ 

dt dt^ 
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VERiyiCATION OF THE COMPUTER PROGRAM 


After debugging the computer program three stages of verification of the 
program were made* The detailed description of each stage of verification 
follows; 

Verification of the Basic Mathematical Formulation 

As a preliminary checkout of the "Fortran" coding of the mathematical 
formulation, a 5- station flexible rotor-bearing configviration, operating 
under a steady- state condition was chosen. Hand computed, initial rotor 
motion conditions simulating a steady- state operation were used. The 
hand calculation was based on the equilibrium between the centrifugal 
loading and bearing restoring forces « The computer result in rotating 

coordinates indicated a very small residual acceleration on the order of 

-9 

10 of the magnitude of the centrifugal acceleration. 

The residual net acceleration, not being zero, is due to input data not 
having a sufficient number of significant figures and computation round- 
off errors. The comparative results are shown in Table 1. 

Verification of the Computation Results 

The computation results of a 17- station rotor model operating under a 
steady- state condition were compared with that from an existing rotor- 
dynamic response program based on a matrix iteration technique and they 
were found in good agreement vjithin a maximum of 1.5^ deviation for the 
case studied. Two different approaches in mathematical formula bions are 
used in these two types of computer programs. The accuracy of the flexible 
rotor dynamic computer program is considered to be adequate. Table 2 lists 
the comparative results. 

Evaluation of the Accuracy and Convergence of the Computation Process 

Using a 5- station rotor test model with a spin speed of 9^*5 ^ 

computation with many integration steps was performed. A reasonably large 
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TABLE 1 


5-STATION ROTOR-BEARING CONFIGURATION CHECKOUT 
COMPARATIVE RESULTS 


Station Noo 

1 

2 

3 

1 

4 

5 

DISPLACEMENT 

VECTORS 






Manually 

Calculated 

00017355" 

.0009999’* 

0 OOO 7736 O" 

.0009999" 

►0017355" 

Computer 

Program 

.0017356" 

.OOl” 

.00077365" 
1 

.001” 

.0017356" 

COMPUTER*CALCU- 
LATED ACCELERA- 
TION IN ROTATING 
COORDINATES 






Radial 

-5 o 716 x 10*'^ 

in/sec 

3 o 440 x 10"^ 

.1986x10“^ 

! 3 . 440 x 10 “' 

-3.716x10^ 

Tangential 

_16 

8.116x10 • 

-1^970x10"^^ 

lo315xl0‘’^^ 

-2o503xl0^| 

3,116x10"^® 


* Predicted Acceleration = zero. 
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Tm^ 2 


COMPARISOK OP MARK 25, 17 MASS MODEL 
MEV PROGRAM 7S OLD PROGRAM 



-5 

Deflection at Station x 10 


Station 

New Transient 
Progrffla 

Old Steady-State 
Response Prograa 

% 

Difference 

1 (inducer) 
End 

^3554 

«3548 

.17 

2 

.3145 

.3140 

0 I 6 

3 

o2028 

. o2023 

.25 

4 

ol419 

0I415 

.28 

5 

.0845 

.08414 

.U3 

6 

0O4133 

0 O 4098 

.85 

7 

•02310 

.02276 

lo50 

8 

.05076 

.05099 

.45 

9 

0I377 

.1377 

0 

10 

.1908 

.1907 

.05 

11 

.2364 

.2363 

.04 

12 

<,3302 

.3300 

.06 

13 i 

.3517 

.3514 

.09 

14 

.3963 

.3960 

CO 

0 

0 

15 

o4159 

.4156 

0 O 7 

16 

c5093 

.5090 

0 O 6 

17 

.9782 

o9784 

.02 
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integration tolerance of 10^ was used. The result in rotor displacement 
appears to stay close to the exact value. The instantaneous whirl to spin 
frequency ratio indicated a substantial oscillation at times, although 
the trend of convergence appeared definite. With a smaller integration 
tolerance as is usual (less than 10^), the magnitude of oscillations 
should be reduced accordingly. The integrated whirl displacement versus 
time function (not shown here) was reasonably smooth. Two graphs showing 
the variation of a deflection vector and whirl- to- spin frequency ratio 
are attached for reference (Figs. 1 ; and 

As evident from Fig. 1 ; and the instantaneous whirl to spin frequency 
ratio appears to be coupled to the rotor displacement motion. The energy 
variation in the displacement motion is complemented by that in whirl 
motion through the mechanism similar to that of Coriolis acceleration. 
Because of the radius of whirl motion being rather small the angular 
velocity change is greatly magnified for a small change in rotaiy 
kinetic ehergy. Since the computer program for this rotor configuration 
was not run for a sufficient time period, it cannot be certain whether 
the relatively large oscillations between 0.12 and O.lU second of real 
time were manifestation of numerical instability. It, however^ does not 
appear likely to be the case. 

The minimum DT (Delta Time) to avoid instability depends on the rotor 
mass-to-stiffness parameter ratio and no definite such relationships 
have yet been established. 
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Eotor Biaplaceaent at Station §3^ Inches z 10* 



0 «04 «06 .08 .100 .120 .140 *160 


Heal TiKOf Seco 


Figure 4 


Data frm a 5*4!a88 95*5 rpm Flexible Rotor 
in a Steady-State Operation 






CAPABILITY AND LIMITATIONS OF THE CURRENT COMPOTER PROGRAK 


Capability of the Computer Program 

The Computer Program was written to include effects of; 

!• Rotor elasticity in shear and bending 

2o A multiplicity of non-linear stiffness bearings each 
in turn supported on a non-isotropic stiffness and 
damping characteristic mount 

3o General in-phase and out-of-phase stiffness and 
damping functions 

4o Hass and mass moments of inertia unbalance vectors 

5o Drive torque and dissipation functions 

The application of the program may be illustrated as follows; 

1. Transient spin speed analysis through critical speed 
range using speed sensitive drive torque and/or 
dissipation functions 

2o Various whirl-to-spin frequency mode simulations in 

transient, steady-state or quasi (cyclic) steady-state 
operations 

5o Study of the effects of rotor transverse gravity or 
constant acceleration 

4o Investigation of the effects of general fluid dynamic 

or some electromagnetic excitation function with in-phase 
or out-of-phase, whirl and/or spin velocity sensitive, 
stiffness and/or damping f\mctions. 

5o Non-linear bearing stiffness effects 

6. Study the effects of shear-and/or bending-wise flexible 
couplings on rotordynamic performance 

7o Analysis of a general rotor motion in a non-aiisymmetric and 
non-steady state operation* 
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Limitations 


Several major assumptions in the mathematical foimulation of the simplified 
computer program were madeo The assumptions and resulting limitations are 
itemized as follows: 

Torsional Rigid Rotor Assumed » For most rotor design properties this 

assumption appears to be realistic o Deviations from the real solution 
would occur, only when substantial torsional oscillations coupled with 
transverse rotor motion are encountered o A multiple-rotor system with 
small dissipation coefficient and having pulsating drive torque of a 
frequency at, or near, a torsional critical speed of the rotor would be 
the case that a torsionally flexible rotor model would provide more 
accurate results. 

Rotor Casing Parameter not Considered . For rotors with large casing-to- 
rotor mass ratio or reasonably rigid attachment between the casing and the 
foTUidation, the effects of the assumption are minimal© 

Rotor Evateretio Damning Including the Effects of Bolted or Press-fit 
Rotor Joints not Considered © This assumption does not materially affect 
the computation results unless an elastically bent rotor of substantial 
hysteretic property operates under a non-synchronous whirl condition, or 
under a substantial gravity or transverse acceleration loading© 
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COMPUTER PROSRAM USER’S INSTOCTIOKS 


DESCRIPTION OF THE COMPUTER PROGRAM 


The Simplified, Flexible Rotor, Transient-Speed Rotordynamics Analysis 
Canputer program consists of a MAIN program, 12 subroutines and a major 
library subroutine (isIMDD)o The program is written for IBM 360, Model 65 
and Fortran H compiler language© The CRT plotting language is to be 
ccmpatible with that available at NASA Lewis Research Center, Cleveland, 
Ohio*© A brief description of the functions of the MAIN program and 
subroutines and a general flow diagram. Figure 6, is provided, as a guide 
for the use of the program. 


•3<CRT Plotting Reference, Robert G. Kannenberg, Lewis Research Center, 
Cleveland, Ohio; "Cinematic-Fortran Subprograms for Automatic Computer 
Microfilm Plotting, NASA TM X-1866" November 1969* 
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PROGRAI"! OR SUBROUTINE NAME 


FUNCTION 


MAIN This is the hasic controlling program which 

originates the "basic "call” statement o It 
also provides output write-out and CRT 
generating procedures o The rotor motion 
in stationary coordinates is converted 
into rotating coordinates "before trans- 
mission to the integration subroutines. 
Similarly, the results of integration are 
first converted back to stationary 
coordinates before they are used in print- 
outs and CRT graphs. 


READIN This function is basically to *read input 

other than providing built-in average data 

valueso «READIN» is called by «MAI»,” 

lo 2-card job descriptive title 

2o NAMEUST/PATA l/, the data which must 
be input 

3o NAMELIST/mTA 2/, optional, when the 
input data in the data 2 group are not 
provided, the built-in average data 
values will be used© 

4o Read punched cards from previous 
analysis for continued study© The 
read-in of the punch cards becomes 
effective when C^NTIN = 1 is specified 
in data as opposed to 
C^NTIN = 0 condition. 

* Detail READIN information will be dis- 
cussed in subsequent section© 
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PROGRAM OR SUBROUTINE NAME 


FUNCTIONS 


WRI^DT This is to print out all the input data 

in groups according to their uses© 
Descriptive definitions and dimensional 
units are provided for each data set© 
*'WRIJ2(UT‘' is called by "MAIN," 


STARUP This subroutine is to generate accurate 

initial rotor motion conditions for start- 
ing computations in the basic program© 

Using the "STARUP" subroutine, computa- 
tions in the basic program can proceed in 
an efficient manner© The present "STARUP" 
is in its simplified version; it includes 
only linear bearing and rotor excitation 
stiffness functions© Torque, damping and 
out-of-phase force parameters are not 
included. It is in a tentative status 
subject to updating to include all 
leftover parameters© "STARUP" is a steady- 
state subroutine and is called by "MAIN," 


JUND This subroutine provides Time derivatives 

required by the integration subroutines 
"RKADAM," "RUNKUT," and ADAMLT." 

To compute the derivatives, "FUND" obtains 
input data through ^READIN," influence 
coefficient data from "INFIiCJ2f," and 
bearing data from "BRGXI." 
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PROGRAM OR SUBROUTINE NAME 


mCTIONS 


RKADAM, 
RTJMKDT, & 
ADAMLT 


These integration subroutines are based 
on an adjustable step, predictor-corrector, 
Adam-Moulton integration procedure « The 
starting points are established through 
forward difference Runge-Kutta approach 
although option in backward difference 
procedure is also provided <> **T(21 lI" is an 

input data name which is used to regulate 
the computation tolerance in integration 
accuracy as may be desired o Higher 
accuracy may be obtained with smaller 
«Tf2^LI" value such as oOOl or oOOOl. Also, 
higher accuracy means longer computation 
time. Thus, an optimum balance between 
the degree of accuracy and computation 
time should be made to suit the circum- 
stances o 

•’RKADAM,” ”RUNKUT” and "ADAMhT" are called 
by "MAINo’* 


INPLC^ This generates the required influence 

coefficients considering both bending and 
shear elasticity of the rotor© It is 
called by ••MAIN” and the influence 
coefficients are also used "by "STARUP” and 
’•PDNDo” 


ISIMDD This is a simultaneous linear equation 

solution library subroutine which computes 
individual derivatives required by the 
integration subroutines. ' It is called by 
"FOND.” 
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PROGRAM OR SUBROUTINE NAME 


FUNCTIONS 


SZMASS 

This a subroutine which computes the rotor 
mass, transverse and polar moments of 
inertia, and rotor length coordinates o 
It is called 'by «MAIN»»' 

BRGXY 

This is a subroutine which computes 
journal displacements from their respective 
zero-load position 

^The computations appropriately consider the 
nonlinear stiffness characteristics of the 
bearings, and non-isotropic mount force 
characteristics o ’’BRGXY” is called by 
"MAIN” AND "PONDo" 

TIME 

This is to furnish real time for the 
iteration process from the tentative 
"real time” output of the integration 
subroutines* 

PL0T1 

It is to provide multiple bearing data for 


CRT plottix 2 ^« It is used to generate 
journal deflections and bearing forces 
for a fflazlumm number of 12 bearings* It 
is called by “MAIN*'’ 





IMFUT PROCEDURE 


In using the computer program a continuous rotor configuration is to he 
simulated hy a discretennass rotor with appropriate massless elastic 
members in between adjacent rotor masses o In general, the minimum number 
of discrete masses used should be such that the rotordynamic mode shape 
can be possibly sustained « For instance, if a shaft operates in its 
third critical speed range the mode shape for a low stiffness bearing 
would be to sustain this mode a minimum of 5 masses is 

required* To obtain good accuracy in general, several times the minimum 
number of mass requirements are used© In rotor motion predominately 
influenced by mass eccentricily, damping^ and stiffness function, the 
mode shape in a critical speed range may be substantially modified from 
that of a pure critical speed mode shape <> Judgement must hence be 
exercised in selecting the number of discrete masses .in representing a 
rotor configuration o 

The rotor to be studied is first divided into consecutively numbered 
stations© The total number of stations m^ vary frcmi 5 to 25 , inclusively© 
Rotor sections between adjacent rotor stations are labeled with the 
same numbers as that of the left adjacent stations* The rotor 
property input data are appropriately subscripted according to the rotor 
station or section umbers© For non-linear stiffness bearing data two- 
dimensional subscripts are used© The first subscripts define their rotor 
station location and the second define the non-linear bearing stiffness 
sections© 

The input data is printed prior to the writing of computational 
results 

A detailed description of the input, output and usage of the program appears 
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in the following sections. To supplement the input procedure descrip- 
tion, a sample input code sheet is shown in Figure 7. 


In-put 

A namelist input procedure is adopted as the major input format due to 
its flexibility in selecting input parameters and the liberal use of 
built-in average values when desired® For preliminary analysis, by 
making use of built-in data, the input data volume can be drastically 
reduced® 

The ccmiplete input listing is as follows: 

1® Read Title , Two consecutively located 80-character spaced cards 
must be used for job description title® The title description may 
use the first 72 spaces of each card and 73 through 80th space may 
be used for card identification number only* 

?• NAMSLI.ST/bATA l/ ® The data group consists of key input data which 
must all be read in Namelist format. This sequence of read-in 
data is immaterial* Because the Da-ta 1 parameters pertain to the 
rotor geometry and other essential descriptive information, average- 
value data cannot be built into the program. The pl^sical input 
of these parameters is necessary. The names and their definitions 
contained in the NAMELIST/DATA 1/ are on page iili. 

5® Name List/Pata 2/ ® The majority of the input data is included in the 
"Data 2" namelist. All parameters contained in "Data 2" are 
optional input data; i*e®, they need not be inputed if the built-in 
average values are adequate* However, a card with the name Data 2 
is necessary even if the data field is empty. 
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The input names for Data 2, their definitions, and the built-in 
values are on page 

4* Reading Punched Cards > If continuation nf a previous analysis is • 
desired specify "C^NTINs=l" and attach the cards providing starting 
data from a previous computation. 

CAUTION: If K is greater than 1 for one or more non-linear stiffness 

bearings, the input of double-subscripted BR^J(l,JC) for 
appropriate K values must be input o V/here I is the 
rotor station for the non-linear bearing, K varies from 
1 through K for appropriate non-linear bearings o The 
input of (l,l) would be necessary when a different 

than built-in value of 0e005 inch is desired o 
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NAMELIST/DATA l/ 


Name Used 
In The 
Computer 
Program 

Equivalent 
Name in 
The Mathe- 
matical 
Model 

Stored 

Value 

Description 

NS 

N 


Number of rotor stations (allowable 
range: 5 NS ^ 25). 

TMAX 



Total real time to be run, sec. 

TST0P 



The computer time allowed for each set of 
data, minutes. 

DD(NS-l)^ 



Outside diameters of rotor sections between 
adjacent rotor stations, in. 

QL(NS-l) 



Rotor section lengths between adjacent rotoi 
stations, in; 

NB 



Number of non-linear stiffness beaidJigs. 
(Allowable range: 2 5 NB 12) 

IB(NB) 



Rotor station numbers of non-linear 




stiffness bearings 

K(NB) 



Total number of stiffness sections for 




each of the non-linear stiffness bearings. 
(Allowable range: 1 ~ K ^ 6) 

IC0^ 



IC^to=:l Means starting a new rotor-bearing 
configuration . 

IC0ND=0 Means read-in alternate initial 
conditions for the same rotor-bearing 
configuration. 

C0MTIN 



C^TIN=0 Means starting a new rotor- 
dynamics analysis with initial conditions 
provided by the startup subroutine 




C0NTIN=1 Means continuation of a previous 
analysis by using the previous results 
on punched cards as the initial conditions. 

PD0T 



Initial rotor spin frequency, rpm. 

WHEVEB 



Initial rotor whirl frequency, rpm. 


* (NS), (I) or (I, J) after a name specifies the name being an array 
of one or two dimension* The values of the indexes specify the current 
size of the array. 



NAMELIST/DATA 2/ 


Equivalent 


Name Used Name in 

In The The Mathe- 

Coraputer matical Stored 

Program Model Value 

T 0 

DT .00001 

FD 0 

lASIGN 1 

N00RPM 1 

NP0INT 25 

CRT 0 

ACCEL 0 


INPRPM(N0;2feFM) 0 

T0LI .01 

T0LB .001 

GX 0 


Description 
Initial real time, sec. 

Estimated initial integration step (real) 
timcj sec. The computer program may 
modify the value of DT to suit tolerance 
requirements . 

Rotor spin angular displacement co- 
ordinate, degrees, (This value is added 
to data) . 

Rotor station at which whirl/spin fre- 
quency ratio will be plotted on CRT. 

The number of spin speeds in rpm at or near 
which 3-dimensional absolute rotor mode 
shape CRT graphs are required. The spin 
speed rpm values are listed under INPRPM 
array. (Allowable range; 0 ^ N00RPM ^50). 

The number of points (one per integration 
step) for each CRT graph. (Allowable 
range: 1 5 NP0INT 5o) . It applies to 

all CRT graphs except the 3-dimensional 
rotor mode shape plot. 

CRT=0 Means CRT is not required, CRT=1 
Means CRT is required. 

ACCEL=0 Means a 3-dimensional steady- 
state rotor mode shape CRT would be 
provided if concurrently CRT=1. 

ACCEL=1 Means the steacfy- state rotor mode 
shape will not be provided. 

The rotor spin speed rpm values at or near 
which CRT graphs for 3-dimensional absolute 
rotor mode shapes are required. 

Integration tolerance, fraction. 

Tolerance in computing bearing displace- 
ments, fraction. 

Gravity or G-loading in X direction, 
in/sec . 
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KAMELISTA^ATA 2/ 


Name Used 
In The 
Computer 
Program 

GY 

TMZ 

TMZl 

TMZ2 

TMZ3 

D(NS-l) 

DN(NS-l) 

EE(NS-l) 

GG(NS-l) 

EI(NS-I) 

^AK(NS-l) 

AM(NS) 

AID(NS) 

AIR0(NS) 

* GAK stands 
Maximum to 


Equivalent 
Name in 
The Mathe- 
matical Stored 

Mode Value Description 


«z ° 

«Z1 ° 

«Z2 ° 

“z3 0 

0 

.283 

3x10^ 

X.l3xl0^ 

0 


0 


0 


1x10 


,-l6 


Gravity 2 or G-loading in Y direction, 
in/ sec • 

Exponent for speed sensitive rotor 
drive torque 

Coefficient for rotor drive torque 

Coefficient for rotor drive torque, 

( in-lb- sec ) / rad 

Coefficient for rotor drive torque, 
in/lb. 

Inside diameters of rotor sections between 
adjacent rotor stations, in. 

Material densities of rotor sections 
between adjacent stations, Ib/in*^, 

Young *s moduli of rotor sections between 
adjacent stations, Ib/in^, 

Shear moduli of rotor sections between 
adjacent stations, Ib/in^. 

Direct input of the products of Young* s 
moduli and area moments of inertia of 
rotor sections between adjacent stations, 

lb-in2. 

Direct input of the products of shear 
moduli, cross-sectional areas and 
reciprocals of shear stress concentration 
factors between adjacent stations, lb. 

Additional rotor masses at rotor stations, 
(lb-sec2)/in. 

Additional rotor transverse mass moments 
of inertia at rotor stations, ( lb-in- sec^). 

Additional rotor polar mass moments of 
inertia at rotor stations, ( lb-in- sec^ ) . 


for ( GG) (Rotor Cross-section Shear Area ), where K denotes 


K 

average shear stress ratio expressible as: 


k. C(DD)3 - d3] 

^ [(DD)2+d5(DD-D) 
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NAMELIST/1)ATA 2/ 


Name Used 
In the 
Computer 
Program 

E5CC(NS) 

ALFA(NS) 

BETA(NS) 

GAMMA(NS) 

CZ(NS) 

CZl(NS) 

CZ2(NS) 

XKF(NS) 

XCP(NS) 

XKPF(NS) 

XCFF(NS) 

QK(NS) 

QC(NS) 


Equivalent 
Name in 
The Mathe- 
matical 
Model 

Stored 

Value 

Description 



Rotor mass eccentricities at rotor 
stations, in* 

°<i 

o 

Phase angles for rotor mass eccentricity 
vectors at rotor stations measured from 
that of the first rotor station, degrees. 


0 

Initial misalignments between the axes of 
the mass moments of inertia and the elastic 
axes at rotor stations, degrees* 

ii. 

0 

Angular positions of the X-Y plane pro- 
jections of the axes of mass moments of 
inertia at rotor stations measured from 
that at the first rotor station, degrees. 

Si 

0 

Torsional friction exponents at rotor 
stations, dimensionless* 

Su 

0 

Torsional friction coefficients at rotor 
stations, dimension of C 2 qj^(H) 0 T)C 2 ^ in-lb* 

S 2 i 

0 

Torsional, friction coefficients at rotor 
stations , ( in-lb- sec ) / rad * 

Si 

0 

Whirl-frequency factors for stiffness force 
coefficients at rotor stations, dimension- 
less* ^ 

Si 

0 

Whirl-frequency factors for damping force 
coefficients at rotor stations, dimension- 
less. 


0 

Whirl-frequency factors for stiffness 
moment coefficients at rotor stations. 

°(^Fi 

0 

Whirl-frequency factors for damping 
moment coefficients at rotor stations, 
dimensionless • 

S 

0 

In-phase stiffness force coefficients at 
rotor stations, Ib/in* 

C. 

1 

0 

In-phase damping force coefficients at 
rotor stations, (lb- sec) /in* 
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NAMELIST/DATA 2/ 


Equivalent 


Name Used 

Name in 



In The 

The Mathe- 

- 


Computer 

matical 

Stored 


Program 

Model 

Value 

Description 

QKP(NS) 

Kpi 

• 0 

Out-of-phase stiffness force coefficients 
at rotor stations, Ib/in. 

QCP(NS) 

Cpi 

0 

Out-of -phase damping force coefficients at 
rotor stations, (lb-sec)/in. 

QKHD(NS) 

*^HDi 

0 

Out-of -phase whirl and spin velocity sensi- 
tive stiffness force coefficients at rotor 
stations, ( lb- sec) /( in-rad) . 

QCHD(NS) 

°HDi 

0 

Out-of -phase whirl and spin velocity sensi- 
tive damping forc| coefficients at rotor 
stations , ( lb- sec "^ ) /( in-rad) . 

QKF(NS) 


0 

In-phase stiffness moment coefficients at 
rotor stations, in-lb. 

QCF(NS) 


0 

In-phase damping moment coefficients at 
rotor stations, in- lb- sec. 

QKPF(NS) 

VPi 

0 

Out-of -phase stiffness moment coefficients 
at rotor stations, in- lb. 

QCPF(NS) 


0 

Out-of -phase damping moment coefficients 
at rotor stations, in-lb- sec. 

QKHDF(NS) 

•H 

0 

Out-of -phase whirl and spin velocity 
sensitive stiffness moment coefficients 
at rotor stations, (lb-in-sec)/rad. 

QCHDF(NS) 

^0HDi 

0 

Out-of-phase whirl and spin velocity 
sensitive damping moment coefficients 
at rotor stations, (lb-in- sec )/rad. 

BKMX(NB) 

BKMI(NB) 

K . 

mxi 

K . 

myi 

o 

O 

Non-isotropic mount stiffness coefficients 
in X and Y-direction, respectively, for non- 
linear stiffness bearings, Ib/in. 

BCMX(NB) 

C . 

mxx 


Non-isotropic mount damping coefficients 
in X-direction for non-linear stiffness 
bearings, (lb- sec) /in. 

BCMI(NB) 

^myx 


Non-isotropic mount damping coefficients 
in Y-direction for non-linear stiffness 
bearings, (lb- sec) /in. 

BCB(NB) 



Bearing damping coefficients for non- 
linear stiffness bearings, (lb-sec) /in. 



Equivalent 

Name Used Name in 

In The The Mathe- 


Computer 

matical 

Stored 


Program 

Model 

Value 

Description 

*FD0FIX 


0 

A bearing stiffness speed parameter, rpm 

*BNB(NBK) 

Bnlk 

0 

Rotor spin- speed sensitive bearing 
stiffness coefficients for K stiffness 
sections of non-linear stiffness bearing. 

*BBB(NB, K) 

®BiK 

0 

Rotor spin-speed sensitive bearing stiffness 
coefficients for K stiffness sections of 
bearings for non-linear stiffness bearing. 

*BR0B(NB, K) 


.005 

(for the 1st 
stiffness sec- 
tions of all 
bearings) 

Upper bearing-displacement limits for K 
stiffness sections of bearing, in. 

*BKB(NB^ K) 

^oK 

1x10^ 

Non-linear bearing stiffness coefficients 
for K stiffness sections of bearing. 

*BHB(NB, K) 

^iK 

1 

Non-linear bearing stiffness exponents for 
K stiffness sections of bearing. 

*BDB(NB^ K) 

°BiK 

0 

Non-linear bearing stiffness coefficients 
for K stiffness sections of bearing. 

*BEB(NB, K) 

®BiK 

0 

Non-linear .bearing stiffness coefficients 
for K stiffness sections of bearing. 


*See equations on p. 60 
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FORTRAN FIXED 10 DIGIT DECIMAL DATA 



IDENTIFICATION 73| > 1 80 | [ IDENTIFICATION 73 UO 




















U* Read Punch-Card Input (Optional ). The program has provision for 
continuing a previous rotordynamics analysis by using the results 
stored in punched cards from the previous analysis. 


Double precision rotating coordinate rotor displacement and velocity 
values are stored in the punched cards. Each card contains 3 
numerical values and a right adjusted card sequence identification 
number, beginning with 1. For this optional input, these cards 
must be placed consecutively and immediately after the regular 
input data of the first round, as shown below: 


Title 2 cards 


DATA 1/ which includes ”C(2fNTIN=l" 
and "IC0ND=1" 


DATA 2/, optional 


Punched Data Cards from previous 
computations when C^^NTIN=1, and not 
to be used if C^TIN=0 


Data for alternate initial conditions 
on same rotor. Do not include IC0ND 
data, (includes data groups 1, 2, 3> 
and ii as appropriate.) 

Data for a new rotor configuration 
must include IC0ND=1. (Includes 
data groups 1, 2, 3} and h as 
appropriate.) 


I I / * End Card 

When read-in punched cards are desired "C0NTIN=1" must be included 
in /DATA 1/ located prior to the punched cards. When punched card 
read-in is effected, the regular, initial condition computation by 
"STARUP" will be l^-passed. 
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special^ Notes on Input 


lo Alternate Provislona o In the input procedure there are two alternate 
input provisions o In. certain rotor designs the flexibility of rotor 
may not be derived directly frcai the diameter and elastic modulus 
considerations, such as complex bolted rotor sections <> In such 
circumstances, an optional craibined El or GAK may be more conveniently 
used in place of EE, DD, D or GG and shear stress concentration factor « 

El is the product of Young’s modulus of elasticity and sectional 
mcanent of inertia, GAK is the product of shear elastic modxilus, rotor 
cross-sectional area and reciprocal of maximum to average shear stress 
ratios, idieze 

EE = Young’s modxilus of elasticity, psi 
GG s s Shear modultis of elasticity, psi 
DD Outside rotor diameter, in 
D = Inside rotor diameter, in 

In using the option input, BI, EE set or GAK, GG set, only values of one 
of the two sets can be assigned. No values are to be assigned to the 
other seto 

The built-in average values of EE and GG for all rotor sections are: 

EE (l) = 3300^ 

GG (l) .= Io5xl0*^ 

It should be noted that the option, BI or GAK, may be used for any 
rotor sections desired, and need not be used for all rotor sections o 

2o Analysis with Various Alternate Operating Parameters o The program 
has the provision to analyze the effect of various sets of operating 
parameters on the perfoimance of a given rotor-bearing 
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configuration o This can be accomplished lay inputting; first, a 
complete data set including the rotor design and the initial set of 
values of operating parameters including "ICjto=l" in Data l/Name 
List; the second set of data for different values of certain 
parameters, but not including *'IC0to=l”, may be input without, 
repeating the same rotor design information* This procediire may be 
continued indefinitely until the analysis of a new rotor design is 
initiated* With the new rotor design data, ”IC^to=l" must be 
included in the first data input set© 

The rotor-bearing configuration, referred to above, is defined as: 

a* Rotor design, geometry and related physical properties 

which include the number of rotor stations (NS), transverse 
rotor gravity or accelerations (GX, Gy), rotor diameters, 
length, density, elasticity, mass, and mass moments of 
inertia© 

bo Bearing locations and number of bearings used© 

The parameters other than that of rotor-bearing configurations may 
be repeated with different numerical values for a given rotor- 
bearing configuration-* They are listed as: 

a# Initial rotor motion conditions. 

b© Bearing and mount damping and stiffness characteristics, 
number of non-linear stiffness sections. 

c© Unbalance parameters for rotor masses and mass moments of 
inertia* 

d. Rotor drive torque and torsional damping parameters* 

e© All rotor in-phase and out-of-phase stiffness and damping 
parameters© 
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Namelist Input Procedure and Sample Input Data Sheet 


According to the current North American Rockwell Corporation practice 
compatible with IBM 560 Fortran IV, compiler H language, the namelist 
input format is described in the following five pages. 

A sample of a completed input data sheet is given in Appendix A. 


Sh 


NAMELIST INPUT-OUTPUT 


Namelist offers a quick and relatively easy way of 
coding input -output. The programmer writes -a 
NAMELIST statement, including one or more lists 
of variables and/or arrays he wishes to read in or 
print out, and assigns a name to each list. There- 
after, instead of rewriting an entire list, he refer- 
ences the list name in READ and WRITE statements. 


On input , the number of items to be read and the 
place each one is to be stored is governed to a 
large extent by the input data cards. Each item is 
written in a format much like an arithmetic state- 
ment, with each variable explicitly named and set 
equal to the., desired value. A few items or many 
can be read by the same READ statement, and the 
order of writing the data is unimportant. 


On output, the members of the list will be printed 
in a standard format. The appearance of the print- 
out is not suitable for formal reports, but is satis- 
factory as a substitute for a partial dump in error 
b^anche'^, for printout of input data, lor interme- 
diate results during checkout, or in any other case 
in which answers are needed and the format is not. 
important 


TRANSMITTAL STATEMENTS 
General Form; 

READ (a, b, END = c, ERR := d) 

WRITE (a, d) 

Where: a is the data set reference number, 
b is the Namelist name.' 

See Section 204.2, Sequential Input-Output , for a 
comple:e description of these statements. 

Note that Namelist cannot be used with a PUNCH 
statement. However, the statement 

WRITE (14, b) 

can be used to produce punched output. 


NAMELIST STATEMENT 

General Form: 

NAMELIST /x/ a, b, . . . , c /y/ d, e, . . . , f 
/z/g, h, i 

Where: x, y, and z are Namelist names. 

a, b, c, ... are variable or array 
names. 

The following rules apply to construction of a 

NAMELIST statement. 

1 . A Namelist name consists of from 1 through 6 
alphanumeric characters, the first of which Is 
alphabetic. The name is enclosed in slashes. 

2. A Namelist name may be defined only once by 
its appearance in a NAMELIST statement, and 
it must be so defined before its use. After it 
is defined in the NAMELIST statement, the 
Namelist name may appear only in input or 
output statements thereafter in the program. 

3. A NAMELIST name cannot be transmitted as 
an argument from a calling program .to a sub- 

I program. In a subprogram, dummy arguments 

I cannot appear in a Namelist list. 

4. The list of variable and array names belonging 
to a Namelist name ends with a new Namelist 
name (enclosed in slashes) or with the end of 
the NAMELIST statement. 

5. A variable or array name may belong to one 
or more Namelist names. For example: 

DIMENSI(3(N A(10), 1(5), L(6) 

NAMELIST A^AMX/ A, D, I, K, L 
/NAM2/ A, C, K, M 

means that the arrays A, I, and L, and the 
variables D and K are included in the list for 
NAM I, and the array A- and the variables C, 
K, and M are associated with the Namelist 
name, NAM2. 

6. The specification statement (s) defining the type, 
size , and relative storage locations of arrays 
and variables must precede any NAMELIST 
statement in which those arrays and variables 
are mentioned. 
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INfPUT DATA 


The input data must be in a special form in order to 
bo read with a Namelist read statement. Following 
are the published IBM specifications for the data: 

1. The first character of each input record (card 
image) must be blank, 

2. The second character in the first record (of a 
group of records) must be an &. 

3. The Namelist name must start in column 3 of 
the first record of the group. 

4. The Namelist name must be followed by a blank; 
it must not contain embedded blanks. 

5. Input data items follow the Namelist name and 
are separated by commas. There must not be 
embedded blanlcs in the variable names, array 
names, or constants. 

6. Input data items can be continued on succeeding 
records. A comma after the last item of data 
on a record is optional. Each succeeding rec- 
ord must begin with a complete variable name, 
array name, or constant (not with an equals sign) 

7. The end of a group of data items is signaled by 
&END, anywhere in a record except in the first 
character position. 

8. Constants in the data items may take any of the 
following forms: 

a. ‘Integer 

b. Real 

c. Complex 

d. Logical 

e. Literal (input only) 

Constants are written exactly as in a source 
program, except that logical constants may be 
written in the form T or F as well as .TRUE, 
or .FALSE.. 

9. The form of the data items may be: 

Variable name = single constant 

The variable name must be one of the names in 
the Namelist list. It may be a single variable 
name or it may be subscripted. 

Array na me - set of constants 

The array name must be one of the names in the 
Namelist list. 


The set of constants may be separated by com- 
mas, or may be in the form ”k*constant" where 
k is an unsigned integer used to represent k 
constants. 

If the array name is not subscripted, the first 
of the set of constants will be stored in the first 
element of the array, with subsequent constants 
stored in consecutive elements. 

The number of constants must be less than or 
equal to the number of elements in the array. 

10. If an item that appears in a Namelist list also 
appears in an EQUIVALENCE statement, only 
the name from the list may appear on an input 
record. 

The following items are comments on the current 
IBM Namelist implementation (Release 15/16). As 
such, they are subject to change in future releases. 

1. The first character of any input record is 
ignored. 

2 . Embedded and trailing blanks in a constant or 
e.xponent are treated as zeros. For example: 

Input Data Item Is Interpreted As 

I =4o, I =40, 

J = 4o3, J = 403, 

E = 1.0E6o, E = 1.0E60, 

K = , K = 0, 

3. Hexadecimal constants, of the form Znnnnnnnn, 
are accepted. (On output, they will be assigned 
the type of the name in the list.) 

4. Literal constants, of the form 'aaaa', are 
accepted. (On output, they will be assigned 
the type of the name in the list.) 

When using Namelist to read a literal constant 
into an array, all items in the array following 
the literal constant will be set to EBCDIC 
blanks. Thus, if there are three words in the 
array ARR, the input data item 

ARR(l) = ’ABCD' 

will store the characters ABCD in the first 
word and will fill the next two words with 
blanks. The input data item 

ARR(l) = 'ABCDEFGHIJKL' 

will till all three words in the array with the 
characters shown. 
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5. The following form is permitted: 

Subscripted array name = set of constants 

When the array name Is subscripted, the first 
item of the set of constants will ^ placed in the 
element indicated, with subsequent constants in 
consecutive elements. 

6. The form 

Array name = single constant 

is interpreted to mean that the single constant 
is to be put in the first element of the array. 

7. A repetition factor can be inserted anywhere 
in the list. Assume that the array TERSE has 
a dimension of 10. The input data items to fill 
this array could be: 

TERSE = 4.0, 8*0.0, 6.0 

i The first and last elements of the array will be 
set to 4. 0 and 6. 0, respectively; the interven- 
ing elements will be set to 0. 0. 

8. If the size of an array is exceeded, the error 
messages appear irrelevant. Depending on the 
context, the following might be printed: 

NAME NOT IN NAMELIST DICTIONARY 
or 

NAME LARGER THAN 8 CHARACTERS 

9. If a real number is set equal to an integer, the 
decimal point is assumed to be at the end of the 
number. 

Input Data Item Is Interpreted As 

REAL = 1234, REAL = 1234.0, 

10. If an integer is set equal to a real number, the 
decimal point is ignored. 

Input Data Item Is Interpreted As 

INTGR = 2. 345, INTGR = 2345, 


11. If an item is repeated in the group of Namelist 
input records, the last one read is used. 

12. Since the last item on a card must be a data 
name or a constant, an identification field may 
not be punched in columns 73-80. 


13. If EEH facilities (Region 226) are available, 
a CALL ERRSET statement will permit con- 
tinuation of the program after Namelist errors 
are encountered. For example, the statement 

CALL ERRSET (221, 20, 20, 0, 1, 224) 

will permit up to 19 occurrences each of errors 
221 through 224; the program will be termi- 
nated on the 20th error for any one of these 
error numbers. A message showing the card 
in error will be printed. 

Note that the standard fixup ignores all remain- 
ing items in the group of input records. Not 
only the erroneous item, but all the following 
items in the group are ignored. 

INPUT PROCEDURE 

When a READ statement references a Namelist 
name, the input of data is begun. The first data 
card (or record) is read and examined to verify that 
its name is consistent with the Namelist name in the 
READ statement. 

If the specified Namelist name is not found, addi- 
tional records are examined consecutively until 
there is a successful match, or until all the data 
for the program are exhausted. (This provides a 
method for skipping undesired blocks of data in 
some branches of the program.) 

Reading continues until an &END is encountered. 
Any information following the &BND is ignored. 

OUTPUT 

When the arrangement of the printed page is not sig- 
nificant, Namelist relieves the programmer of the 
effort of setting up formats. 

When a WRITE statement references a Namelist 
name: 

1. All variables and arrays, and their values, 
belonging to the Namelist name will be written, 
each according to its type. Arrays are written 
in columnwise order. 

2. The output data will be written such that: 

a. The field for the data will be large enough 
to contain all significant digits. 

b. The output can be read by an input state- 
ment referencing the Namelist name. 
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^ ne PUNCH statement cannot be used with Namelist. 
However, a WRITE (14, nname) statement, where 
nname is a Namelist name, can be employed to pro- 
duce punched output. A suitable DD statement is 
also required; one is provided in AFSLINK. 


INTGR(3), previously set to 6, wil be reset to 9 by 
the last data item. 

The &END signals termination of the input for this 
READ statement. 


EXAMPLE 

Assume that the program contains the following 
statements: 


The example on the following page shows output pro- 
duced by the statement: 

WRITE (6, INPUT) 


COMPLEX C0MPZX (5) 
REAL*8 DELE (5) 

REALM REAL (10) 

INTEGER INTGR (10) 
LOGICAL LQfGCL (20) 


NAMELIST /INPUT/ REAL, INTGR, 
CX^MPLX, DELE, L(/GCL 


READ (5, INPUT) 


Also assume the four data cards in the right column. 
(For the example, the input is written in the same 
order as the Namelist list. This is for convenience 
comparing the input to the output; the data need 
not be written in that order. ) 

The first record is read from the device associated 
with data set reference number 5 (normally the 
input stream). The record is searched for an & in 
column 2, immediately followed by the Namelist 
name, INPUT, and the required blank after the 
name. 

Since the search is successful, the data items are 
converted and placed in core. If desired, only one 
or two of the variable names could have appeared 
in the input records. 

The ten real constants will be placed in REAL(l) 
through REAL(IO). The constant 2 will be placed in 
INTGR(l), the constant 6 will be stored in INTGR (2) 
through INTGR (9), and the constant 10 will be stored 
in INTGR(IO). 

The arrays C(/MPLX and DELE will be similarly 
filled as indicated. The first two items of the array 
I>^GCL will be set to .TRUE.; the remainder of 
that array will be set to . FALSE. . 


For the illustration, the output data are derived 
from the input shown below. 
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EXAMPLE OF NAMELIST OUTPQT 


£ INPUT 

•?f;AL= 1. 141399^ , 2.7T39995 , 3.9^4«cc7 , 85.309998 t 99.959991 

95.297938 , C.33279932E 15, 0.18859992E 13, 0.16901693E 49, 6627506.0 , 

INTO 8= 2. 6, 9, 6, 6, 6, 

6. 6, tf 10,C0^PLX= 

( l.CCCCGCC, < .CCCCCCC) , 12.2985992,4.7699995), 

(2.29 35992,4 .7699995 ) , 12.2985992 ,4. 769999 5) , 

(?. 2985992.4.76999951 ,DBLE= 1 . C4CCCCCCCCr0000 , 

1. 557855?OCrOCCOO , 1 . 4 142 7854CCOCOOO , 135340 . COOCCCOOOO , 

14841 6700. CCOCrCO , LOGCL^ T , T , F , F , F , F , F , F ,F ,F , F , F , F , F ,F , F , F , F , F , F 

f.END 


Standard Namelist printing was modified by a job control statement to reduce the width of the output to fit on 
this page. The JCL statement used was: 

//G.FT06F001 DD SYS(2fUT=A,DCB=(RECFM=VBA,LRECL=90,BLKSIZE=990) 

If this technique is employed to reduce the width of the output, ^ records written on the data set defined by 
data set reference number 6 must fit within the reduced-record length. 

The maximum CTC block size for an ASP system is 1012. 
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Non-Linear Bearing^ Force Characteristic Representation 

Provision is made in the program to simulate non-linear bearing stiffness 
characteristics; however, linear damping is used in the program o The 
non-linear bearing stiffness characteristics including simultaneously 
linear speed sensitive stiffness parameters may be represented with a 
mathematical formulation as follows: (To eliminate translation of 
parametric notations from that used in the mathenatical fomulation to 
that used in the computer pTOgram, the latter notations are used here). 


(H^-PPI^ra) BNB 


+ (BDB)P + BEB) = P 


where P is the resultant journal displacement from its zero-load position 
and P is the corresponding resultant bearing force® 

BNB used in the computer program was denoted in the mathematical formtilation 
portion of this report by and similarly 


BBB 

by 


BR0B by 

^Bik 

BKB 

by 


BHB 

by 


BBB 

By 

®Blk 

BBB 


®Bik 

FD0T 

by 

0 

FD(ta by 0 ^ 


"FD0!fIX’' is a non- subscripted name in the current program. It could be 
extended to a subscripted array in the future extension of the computer 
program. To simplify the expression of the above equation, the subscripts 
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i, k are omitted* The constants FDOFIX, BKB, BBB, etc., may be con- 
sidered as that for a particular non-linear stiffness section of a 
bearing station. To briefly describe the method of determining the 
consteuits an arbitrary non-linear bearing stiffness characteristic is 
used as shown in Fig* 8* 



Fig. 8. Bearing Stiffness Curves 

Assume the non-linear bearing stiffness section (2) is to be 
simulated. First use the non-linear stiffness characteristic at spin 
speed 0^. Determine BHB according to the curvature, then solve for 
the three unknowns from the three equations, 

BKB + (BDB) P. + BEbJ = P. i = 1, 2, 3 

corresponding to three selected points on the characteristic curve. 
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The reason for using BKB as a common factor is that BKB may be directly 
used as a linear stiffness factor for a linear bearing when BHB = 1, and 
BDB = BEB = 0* Having determined the values of BKB, BHB, BDB and BEB, 
the values of BI© and BBB can be readily computed from selected two 
/^values on the upper curve at spin speed 0^ in Fig. 8. The equations 
used to obtain the solutions are; 



In a similar manner the non-linear bearing stiffness representation of 
all other sections may be made* 
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Output Fonnat 


To provide a permanent record, the input data are printed out prior to 
the computation results* 

The results of computations are printed with CRT graphs as optional 
additional output. 

Print-Out * The computation results are printed out in the following 
sequence: 

a. Total rotor weight, lb 

b* Total rotor mass, the sum of additional rotor mass (AM) 

and the rotor mass computed from the rotor geometry 
o 

(lb - sec ) /in 

c* Total rotor polar mass moment of inertia, the sum of 
additional rotor polar mass moment of inertia (AIR0) 
and the polar mass moment of inertia computed from the 
rotor geometry* 

d. Force and moment influence coefficients 

e. Initial rotor motion conditions 

f . Elements in rotating coordinates consisting of: 

1) NS number of rotor displacement vector length, 

2) NS number of rotor whirl displacements, 

3) NS number of rotor displacement vector velocities, 

U) NS number of rotor whirl velocities, 

5) Rotor spin displacement 

6) Rotor spin velocity 

g* The appropriate derivatives consisting of: 

1) NS number of rotor displacement vector velocities 

2) NS number of rotor whirl velocities 

3) NS number of rotor displacement vector radial 
accelerations 


in 

rad 

in/sec 

rad/sec 

rad 

rad/sec 

in/sec 
rad/ sec 

O 

in/sec 
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rad/sec 

rad/sec 

rad/sec 


U) NS number of rotor whirl accelerations 

5) Rotor spin velocity 

6) Rotor spin acceleration 

h. X displacement array in stationary coordinates, (in.) 

i. Y displacement array in stationary coordinates, (in.) 

j. Rotor deflection vector array, in. 

k. Phase angle array for rotor deflection vectors from x-axis in 
the direction of rotation, degrees 

l. X velocity array in stationary coordinates, in. 

m. X velocity array in stationeiry coordinates, in. 

n. Whirl frequency array, rpm 

o. Whirl- to- spin frequency ratio array 

p. Total number of revolutions 

q. Spin speed, rpm 

r. X beaiong displacement coordinate, in. 

s. X bearing displacement coordinate, in. 

t. X bearing velocity coordinate, in/sec. 

u. X bearing velocity coordinate, in/sec. 

V. Journal displacement vector from bearing- center array, in. 
w* Journal displacement vector phase angle in the direction of 
rotation from X-axis, degrees 
X. Bearing reaction array, lb. 

y. Bearing reaction vector phase angle in the direction of 
rotation from x-axis, degrees 

z. Bearing force to journal deflection ratio, or equivalent 
linear bearing stiffness, Ib/in/bearing. 

A sample of printout of the computation results including that of 
input data is attached in Appendix A. 

CRT Plotting Output . To facilitate the direct comprehension of the 
computation results and appreciation of the trend of rotordynamic 



behavior, a series of 7 types of CRT are provided as an optional 
output controlled by an input word, "CRT." That is, CRT=1 for CRT 
output and CRT=0 for no CRT output. 

The 7 types of CRT graphs are described as follows: 

a. Rotor 3-dimensional mode shape at or near preselected input 
speeds, "IMPRPM," for a rotor operating with spin-speed 
acceleration or deceleration. For a steady-state rotor spin 
speed, one CRT of this type is provided during the run. The 
spin speed, at which the mode shape is depicted, is labeled 
on top of the graph. Three-dimensional information of the 
graph is provided by labeling the phase angle at corresponding 
displacement vector stations. 

b. Rotor spin speed versus time graph. 

c. Rotor whirl- to- spin speed ratio versus spin speed graph for a pre 
selected rotor station as designated by the input, "lASIGN." 

d. Bearing forces versus rotor spin speed graphs for all non- 
linear stiffness bearings. 

e. Bearing displacements versus spin speed graphs for all non- 
linear stiffness bearings. 

f. Maximxim rotor displacement versus spin speed. The rotor 
station number for the maximum rotor deflection station for 
a spin speed is appropriately labeled for identification 

g. Rotor displacement at station "lASIGN" versus spin speed. 

The number of points included in a frame of the CRT graph may vaiy 
from 1 through 50 as specified by the value of the input word, 

"NPJjJiNT." 
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EXPERIMPAL PROGRAM 


The purpose of Task II, Mark 25 Rotor 33ynamics Tests, was to perform 
spin tests utilizing the Mark 25 pump rotor to obtain data for 
correlation with the results of the rotordynamics computer program* 

The test program included an initial series of seven tests to minimize 
rotor unbalance,- plus eight investigative tests on the Mark 25 pump 
rotor with an array of unbalance levels and locations o Instrumentation 
was provided to measiire response amplitudes and phase angles® 

MARK 25 TURBOPUMP 

The Mark 25 pump is an axial-flow liquid hydrogen ptimp consisting of 
an inducer and four axial stages* The pump rotor is mounted by- 
duplex paired bearings. The bearings used are 55-millimeter bore 
size. To maintain radial stiffness reqiiired for rotordynamic con- 
siderations (critical speed, rotor whirl, and minimum tip clearance 
without rubbing), the bearings are arranged in axially preloaded 
pairs, each pair free to move independently of the other. 

The rotor is built-up rotor of eight disks clamped together with 
l8, (5/l6) through bolts. The overhung inducer is mounted by 6; (3/8) 
bolts to the forward disk stub shaft. The rotor is driven through 
a ball spline coupling at the aft stub shaft* The overall rotor 
length is approximately 21; inches with a nominal diameter of 6.1 
inches. 
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‘ACCELEROMETER (6) 



Figure 9, Mark-25 Rotor High Speed !Test Set-tJp 




TEST SET-UP 


Hardware 


The test set-^p consisted of a Mark 25 pump rotor mounted in a support 
pedestal which was bolted to a large seismic mass. The complete assanbly 
was mounted inside a large vacuum chamber. The pump bearings were 
cooled by a B^on 21 system. Hotating speeds up to 60,000 rpn were pro- 
vided hy a prime mover { 500 hp dynamometer) and a 10:1 gear ratio .speed 
increaser® The rotor was driven by means of an aluminum quill shaft and 
a pplined adapter with a neoprene isolator to minimize transmission of 
gear noises <> 

Instrumentation 


The basic instrumentation consisted of the following: 


1 channel, 
14 channels, 

I 

2 channels, 
2 chazmels, 


rotor speed 
rotor displacements 
pedestal vibration 
bearing t^peratures 


The primary instrumentation parameters were the rotor displacement 
measurements which were made with Bently proximity transducers© A typical 
installation of these transducers is shown in Fig. 9* 


Two mounting bars for the displacement transducers were located along the 
rotor axis in two 90 degree planes and bolted to the bearing pedestals© 
The fourteen non-contacting displacement indicators were used to monitor 
the radial deflection of the rotor in six radial planes and the axial 
position of the rotor© A calibration spot face: was used to determine 
actual displacement values during test runs© 
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TEST PROGRAM 


The test program was accomplished in two parts* The first part was a set 
of spin tests to establish an initial balancing condition and the second 
part was to perform spin tests to investigate imbalance conditions© 

These unbalance conditions would produce response data for correlation 
with the mathematical computer model results© 

A total of 16 tests were performed as part of this contract study* The 
first three tests were performed without the inducer. The next three were 
performed with Hhe inducer© The remaining 10 tests were investigative* 

One of the investigative tests, 1140, was not used because of loss of 
data due to a tape recorder malfunction* 

Balancing Tests 

Thi^e tests (1150 through 1152) were performed without the inducer to 
obtain an initial balance on the basic rotor© The inducer was then 
installed and test 1155 performed© During test 1155 > the maximum dis- 
placement at the forward (inducer) end was ©0174 inches at 26,000 rpm© 

A Post-test examination revealed an inadequate inducer pilot depth© The 
pilot depth was increased and tests 1154 and 1155 were performed* The 
maximum displacement for test 1154 was *0115 at 28,000 TjgBi, but was 
only *005l at 26,000 rpm which indicated a significant balance 
improvement over test 1155© Figure 10 presents the inducer forward 
displacement for tests 1155 and 1154* Test 1155 was an attsnpt to 
achieve an improved balance but was terminated at 24,000 rpa due to 
excessive deflections* 

Investigative Tests 

The ei^t investigative tests, 1156 throu^ 1159 inclusive, and 1142 
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through llli^ were performed with various unbalance conditions. Test 
llUl was selected as the reference run since it was the best balance 
achieved. Response deflections of the rotor for the other tests are given 
as vector changes from the deflections observed in lllil. The foi*ward inducer 
end and the coupling end displacements for test llkl are shown in 
Figure 11 . In order to include the effect of critical speed only the 
tests that operated up to 30,000 rpm or greater were used to generate 
investigative data. The critical speed was calculated to be approxi- 
mately 28,000 rpm. 

Table 5 lists the test run, the unbalance condition and the upper speed 
limit achieved© The unbalance weights were selected to allow operation to 
at least 30,000 rpm without creating excessive bearing loads or allowing 
a deterioration problem to develop© 

PROCEIDURE FOR TEST SET-DP 


Prior to installation in the rotordynamics test facility, idie pump rotor 
assembly was dynamically balanced at low speed (lOOO rpm) on the Grisholt 
balancing machine© The balancing sequence was as follows: 

1© All individual rotors and rotor spacers were dynamic balanced on an 
arbor© 

2© The inducer was balanced on an arbor. 

3o The lutors and rotor spacers were assembled into a composite 

rotor assembly by means of thru bolts, and this assembly mounted in 
balance bearings was dynamic balanced on the Gisholt mach^e© 

4 o The balance bearings were r«aoved, and the rotor was assembled to a 
pump configuration with duplex bearings, special bearing cartridges, 
and all rotating parts except the inducer, spinner, and mounting 
studs and fasteners© Assembled in this manner the rotor was again 
dynamic balanced© The inducer was then installed on the rotor and 
this assembly balanced© The spinner was then added and balance 
corrections made© All components of the rotor were matchmarked© 
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TABLE 5 


UNBALANCE AND UPPER SPEEDS 
FOR EXPERIMENTAL TESTS 





Location 



unoaxance ^ 

Plane No 

, Inches 



Amount 

Angle 

Shown in 

From 

Speed 

Test No* 

Gram-In 

Degrees 

Fig. 12 

Inducer 

rpm 

1136 

2ol2 

138 

2 

1.8 

30,000 


3.40 

139 

3 

5.2 


1137 

2.74 

195 

2 

1.8 

30,000 


4o25 

196 

3 

5.2 


1138 

0o26 

-24 

2 

1.8 

34,000 

- 

0.365 

-24 

3 

5.2 


1139 

0.64 

-32 

2 

1.8 

34,000 


1.10 

-30 

3 

5.2 


1142 

lo47 

121 

10 

12.9 

32,000 

1143 

oll8 

165 

9 

2U.0 

30,000 

1144 

o51 

125 

B 

19.5 

30,000 

1145 

o52 

115 

B 

m 

30,000 


* Reference to Test 1141 and machined spot face on the coupler© 
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5- 0?he inducer, spinner, and mounting studs were removed from the rotor 
assembly and the rotor minus the above parts was installed in the 
cradle mount in the rotordynamics test facility® 

6* After the rotor had been installed, all Bently proximitor probes 
were gapped, rotor runouts were taken and recorded, and Freon lube 
jets, bearing thermocouples, and accelerometers were installedo 

7. After the rotor was initially balanced, the inducer and spinner 
were installed so that the complete rotor assonbly could be 
balanced® 

ROa?ORDyilAMICS SPIN TEST PROCEn)t?RE 


Prior to the first test each day, the speed increasing gear box was 
heated to operating temperature by recirculating lube oil through heaters 
by electrically driven pumps in order to ensure vertical alignment of the 
center lines on gear box pinion shaft and test rotor® Also, all 
electronic eqtdpment, oscilloscopes, tape recorders, etc® were turned on 
to warn up and be checked out® After the above was established, the 
sequence of events was as follows; 

1® The lube oil pumps and heaters were turned off, and the lube oil 
run tank was charged® 

2® The test chamber was closed and the vacuum pumps were started® 

5o The Freon pressurized lube systan for pump rotor bearings was 

charged® 

4o All on-line monitoring instruments were set up and calibrated and 
the appropriate test parameter calibrations were recorded on tape® 

5o All other systems and controls in the control room and test cell 
were made ready for test® 
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6* When chamber pressure reached approximately 40 mm Hgo pressure ^ ■tiae 
Preon-21 bearing lube system was turned on while rotating the pump 
rotor slowly to chill the bearings, rotor and cradle to a stabilized 
operating temperature* 

7* When the pump rotor had been chilled, the Freon flow was stopped, 

bearing purge was turned on, and all Bently dectector potentiometers 
were set for proper voltage output. 

8* ®ie test area was cleared and all stations in the control 'rocan were 
manned o The bearing purges were turned off; lube oil and Freon 
lube systems were turned on and flows were established. 

9. The tape recorders and Brush recorders were turned on. 

10 o The test was started and rotor speed was manually programmed to 
follow a speed ramp run schedule with a series of speed plateaus. 

In addition to recording test parameters, one channel on each tape 
recorder was used to monitor voice, and rotor speed wets announced 
in approximate intervals of five seconds as well as when speed was 
being changed. This channel also monitored voice communication 
between the control room and data acquisition room. 

11. During the test, Bently output signals were monitored on four two- 
channel oscillfli scopes. 

12. At the ccaapletion of a test, vacuum was broken in the test chamber, 
and the tape played back. 

15* Phase angle in degrees and rotor motion in mils for each speed 

plateau was determined from Polaroid photographs and oscillograph 
records. 

14 o The rotor quill shaft was disengaged so that the rotor could be 

turned, by hand, to check bearings. 

15* The appropriate balance corrections or unbalance conditions were 
made on the rotor assembly. 
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16. !fh© above procedure was repeated until all required tests were 
performed© 

RESULTS 


The test results of the experimental program are given in radial 
deflection of the rotor at six axi.a1 stations along the rotor© The 
experimental results are presented in graphical CRT plots. There are two 
types of data presentations for each test: 

1© deflections vs speed for a given station, 
example: Figure 13 

2© deflection vs station for a given speed, 
example: Figure 21 

For the first type of plot, the stations selected were stations 2 
(Bently 16), the inducer end; station 9 (Bently 8), the center of the 
rotor; and station 17 (Bently 2), the coupler end of the pump© The second 
type of plot was selected at or near speeds of maximum deflection at one 
or more stations© Three speeds are shown for each test© The total maxi- 
mum deflection and the X aind Y plane components are shown relative to the 
spot face at station 17, which was the zero degree (O^) reference point on 
the rotor. Table h gives the relationship between the experimental 
and mathematical station descriptors. 

In order to ad;}ust the data to a foim easily tised for comparative puzposes, 
the data was corrected to remove the effects of shaft runout and the 
unlcnown residual unbalance© The latter was acccsaplished by vectorily sub- 
tracting the data ftom the minimum response run (the reference run, 11^1) from 
all other test runs© The unbalance condition listed in Table 3 is 
the "delta" unbalance between the test run and the minimum response 
run ( 1141)0 All angles referred to in the Table 3 and the graphical 
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TABLE 4 


RELATIVE MATHEMATICAL AliD EXPBRIMEHTAL 
MODEL DESCRIPTORS 


Bently 

MeaSo Location 

Matho Model 
Station 

Rotor Axial Position 
(Ref o Inducer end) 
Inches 

16 

2 

0o8 

10 

8 

8o75 

8 

9 

Ho5 

6 

11 

14o5 

4 

13 

17o25 

2 

17 

22o9 
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plots are referenced to a spot face at plane 8 (Bently 12 


On the ej^erimental data plots the following ncanenclature is used: 


BEFIi 2 
DE)F!L 8 
DEFL 16 

X plane 

I PLANE 
!TOTAL 


deflection of the rotor at Bently #2 (Math Model Sta© 
17) vs speed 

deflection of the rotor at Bently #8 (Math Model Stao9) 
vs speed 

deflection of the rotor at Bently #16 
(Math Model Sta# 2) vs speed 

deflection of the rotor vs station at indicated speed 
in the X-plane with reference to the spot face at 
Station 17* 

deflection of the rotor vs station at indicated speed 
in the Y-plane with reference to the spot face at 
Station 17 

total deflection of the rotor (maxiinum) vs station 


All deflections given are in mils (lO*"^ inches) o 


Figures 13 to 20, inclusive, are the deflection vs speed plots for test 
runs 1136 through 1139 and 1142 throiagh 1145, inclusive o The speed range 
plotted is from 10,000 to 30,000 rpm except for Test 1142 which had an 
upper speed limit of 32,000 rpa, and Tests 1138 and 1139 which achieved 
upper speed limits of 34,000 rjm. 

Figures 21 to 111:, inclusive, are the deflection of the rotor vs rotor 
stations for three speed cases for each of the investigative tests© The 
abscissa is the distance from the inducer end in inches. In most cases, 
the applied imbalance tended to cause the local section of the pump 
rotor to deflect significantly; i.e., when the unbalance was at the 
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Hgure 12. Beatly and Balance Plane J, Mark-25 Pump Rotor 



inducer, the inducer end had the largest deflection; when the unbalance 
was in the center section (between the bearings) the center of the rotor 
deflected morso However, when the unbalance (a very small amount) was 
applied at the coupler end, the inducer displayed large deflections* This 
was primarily due to the inherent mode shape of the rotor in the speed 
range of interest© 
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Figure lit 
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Figure 17 


85 







■■■■■■■■■■■888888B8888B88B888888 S8S^ u 

wesassBgaaBiiiiiiimiiHHBi!# 


iwHiaaBSBgaaaamMMiiwMBBBBBBg 


ma^iiaaM^BBBBSBeBwi 


[iaiiasamgnaaaimBgiaaaaii 


)6000 20000 22OP0 2, 

SPEED 

0 COMPUTER SIMULATION DATA 
□ EXPERIMENTAL DATA 

Figure l8 


86 













SPEED 


Figure 20 
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SIMULATION OF EXPERIMENTAL TESTS 


SIMULATION MODEL 

A discrete 1? mass model was constructed to describe the physical configu- 
ration of the Mark- 25 pump rotor. Table 5 lists the mass and inertia 
properties for each of the 17 stations. 

The four bearings, in two duplex pairs, were located at Stations 5j 6, l5 
and l6. A speed sensitive linear stiffness characteristic was used for 
each of the four angular contract ball bearings. 

Eight different cases of rotor mass unbalances corresponding to the ex- 
perimental test runs were used in the computer program input data. These 
unbalance cases are listed in Table 6. Six steady state speed slices were 
simulated for each test run. The speeds were from 2ii,000 to lU^OOO rpm 
in 2000 rpm increments. 

RESULTS OF THE COMPUTER SIMULATION 

The results of the computer simulation are listed in Tables 7 through lit. 
Although excellent correlation was achieved between the results of the new 
computer program versus a synchronous response program (see Table 2), 
large variances occurred in the simulation runs as compared to the ex- 
perimental data. 

For graphical comparison the simulation data is plotted on the experimental 
plots of deflection versus speed, and is identified by a small circle.* 
Also, comparison of the calculated .vs. experimental mode shapes are shown 
in Figures 21, 2h, 29, 32, 35 and U2. In some cases it was necessary to 
multiply the simulation data by a scale factor. However, the mode shapes 
compared favorably. The close agreement between the computer results and 
that from an existing synchronous rotordynamic response program suggests 


*See Figures 13 through 20. 
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that the computer program is valid and able to generate accurate results. 
The discrepancies between the test and computer data should only result 
from inadequacies in test model simulation. Comparisons between the com- 
puter and test data (Figures 13 through 20)'revealj 

1. Computer simulated deflections are generally smaller than 
the test data. 

2. Within the speed range tested, reasonably negative curva- 
tures (inverted TJ shape) of the deflection versus speed 
curves at the local maximum deflection regions are observed. 

3. The local maximum deflection points from the computed data 
are in general at a higher speed than that from the test 
data. 

Item 1 above suggests that the actual mass eccentricities of the test 
rotor may be greater than those used in the simulation. Since there are 
only a maximum of two unbalance locations for each unbalance configura- 
tion, it is possible that there are compensating local unbalances not 
detectable during the balance procedure. That is, the actual unbalance 
distribution of a rotor unbalance configuration is different from that 
used in the computer program. Although the postulate of actual eccen- 
tricities being larger than those used may tend to explain a good portion 
of the discrepancies between test and computer points, no such errors 
have been found in the test procedure. 

Item 2 indicates that certain amount of damping exists. It appears that 
besides the small amount of inherent damping in the elastic bearing and 
mount components the high damping component Kirksite base for the test 
apparatus may contribute to the system as a significant damping para- 
meter. These was no damping included in the computer analysis. The 
damping parameter has not been included in the STARUP subroutine. 
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Item 3 suggests that the -support bearings stiffness and/or rotor rigidity 
are higher in the computer model than in the test mode, thus resulting 
in higher computed critical speeds. The test rotor is fabricated from 
individual disk components and is of reasonably complex structure. It 
is possible that the computer model may represent a more stiff rotor 
than the real one. 

As far as the support bearing’s stiffness simulation is concerned, the 
discrepancies between the actual value und that used in the computer 
program should not be very large. In the past experiences, the use of 
similar bearing stiffness appeared to give reasonable critical speed 
results comparable to those observed from related test data. 

Tables 7 through lli are copies of the actual printout from the computer 
simulation runs and list the following: 

a. X displacement array 

b. Y displacement array 

c. Rotor deflection vector array 

d. Rotor deflection vector phase angle array 

e. X velocity array 

f . Y velocity array 

g. Whirl frequency array 

h. Whirl to spin frequency ratio array 
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• table 5 


MABK-25 HJMP ROTOR HASS AMD INEBTU PROPERTIES 


Station 

Location 

Inches 

Massg 

Ib-sec^/in 

2 

lb-in- sec 

^ 2 
lb-in- sec 


1 

1.0 

0OO23293 

.0018504 

.0022752 

- .OOO42U8 

2 

1.8 

•.0084-56 

.027589 

.047474 

- .019885 

3 

U.02 

.093548 

.142081 

.24449 

- .10241 

h 

5.22 

.017604 

.052015 

.089431 

- .037416 

$ 

6.32 

.0056835 

.0028311 

.0046549 

- .0018238 

6 

7.32 

.0021558 

.0010739 

.0017656 

- .0006917 

7 

7.81 

.017136 

.04451 

.079042 

- .049534 

8 

9.83 

0O54I8O 

.1450 

.2515 

- .15662 

9 

12. 2U 

0O3317O8 

0O934 

.1585 

- .08504 

10 

13.73 

.040357 

.11800 

.1914 

- .09338 

11 

15.03 

.0361565 

.1019 

.1834 

- .10151 

12 

17.72 

.030516 

.0854 

.1593 

- .10791 

13 

18.32 

.030516 

.0854 

.1593 

- .10791 

ih 

19.53 

.021697 

.0608 

.1175 

- .07673 

15 

20.02 

.002661 

.0037044 

.0023834 

+ .0013210 

16 

21.13 

.010644 

.014818 

.009534 

+ .005289 

17 

23.98 

.011584 

.012806 

.013423 

- .000617 
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TABLE 6 



MARK-25 

PUMP SIMULATION DATA 


Run 

Station 

Mass^ 
lb- sec /in 

Eccentricity* e 

Phase 9 
Decree 

1156 

2 

<,008456 

.00143” 

158.0® 


5 

o005684 

.00341" 

139o0° 

1157 

2 

o008456 

.00185" 

195 oO® 


5 

o005684 

.00425" 

196.0® 

1158 

2 

o008456 

.000175” 

-24o4® 


5 

o005684 

.000366" 

-25o5® 

1139 

2 

o008456 

.000429” 

-32.5® 


5 

o005684 

.0011" 

-29o7® 

1141 

Base 

Run 

0.0" 

0.0® 

1142 

10 

0 O 4056 

.0002065” 

121.0° 

1145 

17 

.01158 

.000058" 

165.0® 

1144 

13 

.03052 

.0000964" 

125o0® 

1145 

7 

0 OI 714 

.000174” 

115 oO® 


3,1? 



sjmjL 


•X 

-rr- - 

DISPLACEMENT ARRAY IN STATIONARY COOROI NATES . f TN . ) 




-3,37000-03 
-li 53240-03 
.-6. 10C50-04 

-2.1209D-03 
- 1.3899D-03 
-4 .82310-04 

-2.44810-03 

-1.19260-03 

-4.21610-04 

-2.07940-03 
-1. 06220-03 
-2.90670-04 

-1.72350-03 

-9.40290-04 

2.9491D-G5 

-1.55160-03 

,-6.71420-04 

Y 

displacement ARRAY IN STATIONARY COORDI NATES , U N. ) 
2.85 540-0 3 • 2.64-420-03 2 .07360-03 1.7609 0-03 

1.4591D-03 

1. 31340-03 


1.297,10-03 

5.15910-04 

1 . 17630 --03 
4. 07760-04 

1 . 00920-03 
3. 56370-04 

8.98760-04 

2.45520-04 

7 .95550-04 
-2.55630-05 

• 5.6788D-04 

ROTOR DEFLECTION 
4.^1700-03 
2.00770-03 

VECTOR ARRAY. 
4.09040-03 
1.82090-03 

( IN.) 

3 .20830-03 
1.5623 0-03 

, 2.72480-03 
1.39140-03 

2.2582.0-03 

1.23170-03 

2.0 3290-0 3 
8.79370-04 


7. 98 950-0 4 

6.31580-04 

. 5. 52 040-04 

3.80490-04 

3.90280-05- 


PHASE ANGLE ARRAY FOR ROTOR OFFIECTTON VFr.TORS. nFP,RFP<; 



H 

H 

09 

1. 39720 02 
1.39750 02 
1.3978D 02 

1.39730 02 
1.39760 02 
1.3979D 02 

1.39730 02 
1 .39760 02 
1.39790 02 

1.39740 02 
1.39760 02 
1.3981D 02 

1.3^750 02 
1 .39770 02 
3.19080 02 

1.3975D 02 
1.39780 02 

X 

VELOCITY ARRAY 
.-7. 77450 00 

IN STATIONARY 
-7.19940 00 

' COORDINATES 
-5.64580 00 

. (IN./SEC) . 
-4.7g'4^a 00 

-3.97260 00 

-3.57580 00 


-3.53170 00 
■ -1.40470 00 

-3.20290 00 
-1.11020 00 

-2 .74780 00 
-9.70300-01 

-2.44710 00 
-6.68460-01 

-2.16610 00 
. 6.96220-02 

-1.54620 00 

Y 

VELOCITY ARRAY 
-9.17550 00 
-4.1722D 00 

■IN STATIONARY 
-8.497 30 00 
-3.78420 00 

' COORDINATES 
-6.66550 00 
-3.24700' 00 

tllN/SBC) 
-5.66160 00 
-2.89200 00 . 

-4.69270 00 
-2.56010 00 

-4i2249D 00 • 
-1.8281D 00 


• -1.661G0 00 

-1.31320, 00 

“1.14790 00 

-7.91430-01 

8.0276D-02 


WHIRL FREQUENCY 

ARRAY. RPM 






2.6000D 04 
2.60COO 04 
2.60CCD 04 

2.60000 04 
■ 2.60000 04 

2.60000 04 ' 

2.60000 04 
2.60000 04 
2.60000 04 

2.60000 04 . 
2.60000 04 
2.60000 04 

2.60000 04. 
2.60000 04 
2.60000 04 

2. 6000 D 04 
2,60000 04 

WHIRL ..T,0 SPIN FREQUENCY RATIO 
1.00000 00 1.00000 00 

ARRAY 

1 .00000 00 


j.]fl.X)OOOD 00 

l.OQOOb 00 


JL^O MD 00 I. QQQOD :00 


p6 1 , 600 ( 10 ^.00 ■ .i .ooo65'“"qo' iToacfdprdd*^ 


1 , 00000,00 












sm&3. 

-^MIlLA-nOH iS 26.OOa .Mt 


■ X 

DISPLACEMENT ARRAY IN STATIONARY CQORDI NATES .( IN.) 




-5.367FD-03 

-2.4369D-03 

-P.6869D-0A 

-4.97053-03 

-2.20983-03 

-7.65460-04 

-3.89720-03 
-1. 89570-03 
*76.68920- 04 

r3.3091D-03 
-1,68810-03 
-4. 60660-04. 

-2.74150-03 

-1.49420-03 

4.8728D-05 

-2.4676C-03 
-1. 06630-03 

Y 

DISPLACEMENT ARRAY IN STATIONARY COORD I NATES i U N . ) 
-1.65990-03 -1.53730-03 -1.2059D-03 -1.0243D-03 

-8.4901D-04 

-7.64370-04 


-7. 5^90D-0A 
-3.C056D-04 

-6.8470D-04 

-2.37640-04 

-5.87510-04 

-2.07730-04 

-5. 2 3270-04 
-1.43230-04 

-4.6324D-04 
1 .44870-05 

-3.30790-04 •• 

ROTOR DEFLECTION 
5.fil87D->03 
2.55110-03 

VECTOR ARRAY 
5.20280-03- 
. 2.31350-03 

{ IN. ) 

4'. C7 950-03 
1 . 98460-03- 

3.46400-03 

1.76740-03 

2.87000-03 

1.56430-03 

■ 2.58330-03 
1.11650-03 


1 .01420-03- 

8.01503-04 

7.00430-04 

4.82410-04^ 

5.08350-05 


PHA?;E angle array for’ rotor DEFLECTXQN VFCTORf;. DFGRFF_S_ 




1.9718D 02 
1.97210 02 
1.9724D 02'“ 

1.97190 02 
1.97223 02' 
1 .9 7 2 50 0 2 

1.97190 0? 
1.97220 02 “ 
1. 97250 02 

1.97200 02 
1.97220 02 
1.97270 02 

1.97210 02 
1.97230 02 
1.65570 01 • 

1.97210 02 
1.97230 02 

X 

VELOCITY A-RPAY 
A^SISCD 00 

IN STATIONARY 
4.18560 00 

' COORDINATES 
3.28340 00 

t ( t N/SE« ) 
2.78890 00 

2.31200 00 

2.08170 00 


2. C554D 00 

3. 18330-01 

1.86430 CO 
6 .47020-01 

1 .59960 00 
5.65580-01 

1 .42470 00 . 
• 3.90040-01 

1.26130 00 
-3.93930-02 

9. 00650-01 

Y 

VELOCITY ARRAY 
-1.4615D 01' 
-6.6349D OC 

IN STATIONARY COORDINATES 
-1.35330 01 -1 .C6110 01 

“6.01683 00 -5.16140 00 

, UN /SEC) 
-9.0097D 00 
-4.5963D 00 

-7,46430 00 
-4.06820 00 

-6.71840 00 
-2.90330 00 


-2.63750 OC 

-2.C841D 00 

-1.3213D 00' 

-1.25420 00 

1.32680-01 



ARRAY.RPM 






2.60C00 04 
2.6000D 04 
2.600CD 04 

2.60003 04 

2.60003 04 
2 .60000 04 

2.60C0D 04 
2.6000D 04 
2.60C0D 04 

2.6000D 04 
2.6000D 04 
2.6000D 04 

2.60000 04 
2.600.00 04 
2.60000 04 

2.60000 04 
2.60000 04 

.WHIRL TC SPIN FREQUENCY RATIO 
1 . 00 0 OD 00 1 . COO OD 0 0 

ARRAY 

1 . 0 0.00.D_ _0_0 

l.OOOOD 00 

1,00000 00. . 

1 -OOOOD 00 


l.COCCO 00 

1.00003 00 

1 .00000 00 

1 .00000 00 

1.00000 00 
'9.9999 0-01 

1,0000.0.00 

1 

l.OOCCD 00 

1.00000 00 

l.OOOOD 00 

l.OOOOD 66 





TA-RTJg 0 

«2SaBSa&M» 


X displacement A,^KAY in STATICM'^V CCGRDI'NATES t ( in» ) 



-7^ 94730-04 
~3’37334D~0i> 13340-05 

4oab9i0-04 5«3972D“C4 

-5®2262D-04' 
1,83490-04 
' 5*51930-04 

-3,72650-04 

2,66200-04 

5,93360-04 

-2,27410-04 
3,33720-04 
• 7,64120-04 

-1,25490- 04 
4,61820-04 


Y DISPLACtMENT AKKAY IN STATI0N/5RY CGORDI NATES , U No ) 

3*&9020-04 3o27A00-0A 2,15300-04 ' 1,53520-04 

9,36740-05 

5. 16620-05 


3o5924D-35 -i, 71350-05 

-2o0x69l)-04 -2> 226A0-0A 

-19575,50-05 

-2®2767C-04 

-1,09860-04 

-2,44750-04 

-1,37700-04 
-3o 15160-04 

-1,90520-04 


ROTOR OLFLhOTIUN VECTOR ARRAY 
9,687bij-04 Co5953n-CA 

9o4434D-05 4,47450-05 

( INo ) 

5,65230-04 

1,98510-04 

4,03030-04 

2,87980-04 

2, 45:^40-04 
3,61020-04 

1,35710-04 

4,99580-04 


5o2b870-04 5, 83840-04 

5®97C5D-04 , 

6,41850-04 

8,26560-04 



PHASE ANGLt ARRAY FUR ROTOR CEFLECHCN VECTORS, DEGREES 



H 

ro 

o 

iob^blD 32 io 5761D 02 

' io5704L) 02 37A8D C2 

3o375bD 0^ 3o3758D C2 

1,57610 02 
3®3757D 02 
3c3758D C2 

1,57610 02 
3,37570 02 
3,37580 02 

1,57610 02 
3,37580 02 
3,37590 02 

1,57620 02 
3,37580 02 


A-VELOCITY array in STATIONARY 
-lo2360U 00 -lo 097lD 00' 

CCQRDINATES 

-7,21420-01 

. ( I N/SBfi) 
-531A53D-01 

-3,13230-01 

-1,73160-01 


-lo2U^3U-3i 5o ^4C0D-02 

6o75580-0i 7,46290-OT 

2,53830-01 

1,6C590-C1 

3,68120-01 
. 8,2080Cr01 

4,61390-01 
1,056^50 00 

6,38240-01 


Y VELOCITY ARRAY IN STATIONARY 
• -3o00i7D 00 -2’o66320 00 

-2o9264D-01 i,3852D-Cl 

CCORDINATES 
-1,75130 00 
6,14900-01 

TTTnT^cI ^ 

-1,24870 00 
8,92050-01 

-7,6234D-01 
1,11831V 00 

-4,20520-01 
1,54770 00 


io63B5U 00 i,8Q85D CC 

1,85C6D 00 

1,98810 00 

2,56020 00 



WHIRL-FREQUENCY ARRAY, RPM 






3o20UCD .04 3,200^0 C4 

3o2000D 04 3,20000 

3o2000t> 04 3® 20000 04 

2,20000 C4 
5,2CC0D 04 
3,2CC1D 04 

3,20000 04 
3,20000 04 ’ 
3,200CC 04 

3,20010 04 
3,20000 04 
3;2000D 04 

3,20000 04 
3,20000 04 


WHIRL TO SPIN FRtQUENCY RATIO 
ioOOOOD 00 1® OOOOD 00 ’ 

ARRAY 

loOCCOD CO 

1,00000 00 

1,00000 00 

9,99990-01 


9o9999Q-0i 1®0000D OC 

loOCCCO 00 

1,00000 00 

1,00000 00 

1,00000;, .00. 


loOUUOO .0 0 9o 99990-01 

loOCCCb 00 

'9,9999 0-01 

9,99990-01 





.M39-.- -saumHaoH at 3g;66o 


X DISPLACEMENT ARRAY IN STATION/iRY CCGRDI NATES ,( INo ) 

-2ol879D-03 
-2o li)01D-04 
io iSb6D“03 

-io9412D-03 
9® 76380-05“ 
lo 3093D-03 

-lo27650-03 

4«4312D-04 

lo3390D-C3 

-9ol032D-04 

6o4415D-04 

1o43980-03 

-5o5573D-04 

8*08300-04 

1*85500-03 

-3*07700-04 

1*11980-03 

Y DISPLACEMENT- ARRAY IN STATION/SRY COORD I NATES ,( I No ) 

i«266yD-03 lol2AlD-03 7o3920D^04 5o2711D-04 

’ 3*21730-04 

1*77850-04 

Lo2403D-04 

-6o8896D-04 

-bo7470D-05 . 
-7o 60680-04 

-’2a58C20-04 

-7o7794D-04 

-3o7470D-04 

-8*36410-04 

-4*69980-04 

-1*07740-03, 

-6*50740-04 

ROTOR DEFLECTION 
2o5282D-03' 
2o4822D“04 

VECTOR ARRAY 
2o 2431D-C3 
lo 1330D-04 

(I No > 

lo4751D-03 

5*12770-04 

1*05190-03 

7*45200-04 

6*42140r04 

9*35000-04 

.3*55400-04 

1*29510-03 

io3713D“03 

lo5l42D-03 

1*5^860-03 

1*66510-03 

2c 14510-03 


PHASE ANCLE ARRAY FOR ROTOR DEFLECTICN VECTORS, DEGREES 



H lo4993D 02 

P. 1o!3002D 02 

3o2984D 02 

io4993D -02 
3*2952D C2 
3o2984D 02 

lo4993D 02 
2o2979D 02 
3 o2984D' 02 

1*49930 02 
3*29810 02 
3*29850 02 

1*49930 02 
3*29820 02 
3*29850 02 

1*49970 02 
3*29840 02 

X VELOCITY ARRAY 
-4o24550. DO 

IN STATIONARY 
-3o7667D 00 

CCCPDINATES., 
-2*47700 00 

(IN /SBC) 
-1.76A6D 00 

-1*07680 00 

-5*96140-01 

-4ol573D-01 
2o308lD 00 

lo 92540-01 
2o 54980 00 

8*64570-01 
2<,6C17D 00 

1*25560 00 
2.8042D 00 

1*57480 00 
3*61180 00 • 

2*18030 00 

Y VELOCITY ARRAY 
-7o3317D OO 
-7o2045D“01 

IN STATIONARY 
-6O5050D CO 
3o272in-Cl 

CCORCINATES, 
-A*2778D 00 
1*48500 00 

(IN./SEC ) 
-3*05040 00 
2oi586D 00 

-1*86310 00. 
2*70870 GO 

-1.03100/ 00 
3*75270 00 

3o9736D 00 

4o 38690 00 

4o49C20 00 . 

4o8240D 00 

6*21500 00 


-WHIRL FREQUENCY 

ARRAY, RPM 





3o2000D 04 
5o2000D 04 
3o2000D 04 

3o 20000 C4 
3o20'C0D 04 
3o20C0D C4 

3*2CC0D 04 
3*2CCOO 04 
2o2CC10 C4 

3.2000D 04 
3*20000 04 
• 3*20000 04 

3*20010 04 
3*20000 04 
3*20000 04 

3.2000D 04* 
3*20000 '04 

WHIRL TO SPIN FREQUENCY RATIO 
■ loOOOOD 00 loOOOOD 00 

ARR/a> 

loOGCOO 00 

leOOaOD 00 

1*00000 00 

9*99990-01* 

ioOOOOD 00 

iaOOOOD 00 

1*OOCOD 00 


l.OOOOD 00 

l.OOOOD 00 

loOUOOD 00 

9o 99990-01 

laCOCOD 00 

9*99990-01 

9*.999'9D-0r^ 

'■* 






■ TABEE 11 

gB3g 3142. fmmfEAflOW AT 


A OISPLAC£M£NT AKkAY IN STATIONyiRY CCORDI NATE $ , < I No ) 


~7o 505)6D“04 
“2o 37I6D-03 
5 o6023D-04 

-6o6020D“*04 ‘ 
9 o5442D-05. 
S34497D-04 

-Aol6GlD-04 

2*25160-04 

5*54650-04 

-2*82110-04 

2*99940-04 

5*90210-04 

-1*53480-04 
• 3*61240-04 
7*44780-04 

-6,00350-05 
4*76140-04 _ 

Y DI SPLACeMENT . array IN STATI0N/5RY COORO I NATE S , ( I N<» ) , 
lol66'6D-03 io0263D-03 6*4671D-C4 4o3856D-Q4 

2*38590-04 

9*33270-05 

3o 68bbD-05 
-7 o7764D“04 ' 

-1*48370-^04 

-8o4719D-04 

-3o5CC2D-C4 

-6*62230-04 


-5*61570-04 
-lo 15780-03' 

-7*40180-04 

R0T3R DEFLECTION 
io3873Q-03 
4 o3837D-05 

VECTOR ARRAY 
1* 2203D-C3 . 

' i<,76A2D-C'i| 

( IN* ) 

7o6‘6560-G4 

A*1619D-04 

5*21460-04 

5*54420-04 

2*83700-04 

6*67720-04 

1*10970-04 
8* 80100-04 

9o2464D“04 

^ i*0073D~C3 

1*02520-03 

1*09100-03 

1*37670-03 


PHASE ANGLE ARRAY 

FUR ROTOR- DEFLECTION VECTORS. DEGREES 



^ lo2275D 02 ' 

K lo2275D 02 ■ 

3o027!3D 02 

io2275D C2 
'3o0275D C2 
3*02750' C2 

1*22750 02 
3*02750 02 
3*02750 C2 

1*22750 02 
3*02750 02 
3*02750 02 

1*22750 02 
3*02750 02 
3*02750 02 

1,-2275D 02 
3,02750. 02 

X VELOCITY ARRAY 
~3o9099D DO 

IN STATIONARY 
-3*43920 CO 

CCQRDINATES 
“2*16710 00 

, ( I N./SBCJ 
-1*46970 00 

-7*98910-01 

-3* 12780-01' 

-lo2359D-0i 
2o6056D 00 ” 

4o 97180-01 
2o 8391D C0 

1*17290 00 
2*88710 00 

1*56250 00 
3*07520 CO 

1*88180 00 
3*88060 00 

2.4802D 00 

Y VELOCITY ARRAY 
-2obl520 00 
— 7o9393D~02 

IN STATIONARY 
-2*21240 GC 
3o 1986D-C1 

CCQRCINATES 
-1*39410 00 
7*5A560-G1 

,(IN/SEC) 
-9*45230-01 
1*00520 00 

-5*15360-01 
1*21060 CO 

-2*01100-01' 
1*59590 00 

• 1 0 6 7 9 7 0 , 0 0 

lo8259D CO 

1*86230 00 

. 1*9768C 00 

2*49450 00 


WHIRL FRcQUENCY -ARRAY, RPM 





3a2G00D 04 
. 3ol999D 04 
3o2000D 04 

3*20000 C4 
3*20000 04 
3*20000 C4 

2o2CC0D 04 
2o2C0n0 04 
3*2CC1D C4 

3*20000 04 
3*20000 04 
3*20000 04 

3*20010 04 
3*20000 04 
3*20000’ 04 

3,19990 04 
3,20000 04 

WHIRL TO .SPIN FREQUENCY RATIO 
loOOooD 00 loOncon oo 

ARRAY 

laOOCOD 00 

' 1*00000 00 

1*00000 00 

9, 99980-01. 

9o9998D“0i 

ioOOOCO 00 

UOCCOO CO 

1*00000 00 

1*00000 00 

1*00000 00 

ioUOOOD 0,0 

9* 9 9 990- Cl 

1*00000 00 

’ 9*99990-01 

9*99990-01 









TA^;.T»! T? 

TESJb UA^ siimLA^PtQN AJ 32,000 rm 


X DISPLACEMENT A^RAY IN STATION/^RY CGGROI NAT£S t U No } 


~i»0738D~04 

-lo6576D~05 

138448D-04 

-^o 7112D-.C4 
2 p9509D-05 
2»0137D~CA 

“U7318D-04 

7,96370-05 

2,G^86D-C4 

-1,19440-04 

1,08500-04 

2,17060-04 

-6,77550-05 
1, 31810-04 
2,68450-04 

-3,07000-05 

1,75360-04 

Y DISPLACEMENT A^RAY IN STATIONARY COORDI NATE S , U N . ) 

-7o2J67D~J5 6^38300-05 Ao0771D-05 2o8121D-05 

1,59520-05 

7,22770-06 

3o9U25D“06 

-4o3433D~05 

“6,94730-06 
-4o 74 080“ 05 

-U87^9D-05 

-A,823lD-05 

-2,55450-05 

-5,11020-05 

-3,10310-05 

-6o32010-C5 

-4,12840-05 

ROTOR DEFLECTION 
3o1578D-04 
1o7029D“05 , 

VcLTOR ARRAY 
2o 7853D-Q4t/ 
3o03l6D“05/' 

(INo ) 

lo7791D-04 

8,18140-05/ 

1,22710-04 

1,11470-04 

6,96080-05 

1,35410-04/ 

3,15390-05 

1,80150-04 

1, 89530-04'^ 

2o'0687D-CA 

2o 1C46D-04 

2,22990-04 

2,75780-04/ 


PHASE ANGLE ARRAY 

FUR ROTOR DEFLECTION VECTORS, DEGREES 



. iii. 1*6675D 02 

■d' lo6675D 02 

3o4b75‘D 02/ 

Io6675D 02/ 
3^46750 C2«^ 
3o4675D C2 

lo6675D 02 
3o4675D 02/ 
3,46750 02 ‘ 

1,66750 02 
3,46750 02 
3,46750 02 

1,66750 02 
3,46750 02*/ 
3,46750 02/ 

1,66750 02 
3,46750 02 

X VELOCITY ARRAY 
,-2»4249D“01 

IN STATIONARY 
“2o 1388D-cr 

CCORDINATES, 

-lo36.6G0-01 

(IN/SBC) 

-g«4266D-02 

-5,32190-02 

-2,42350-02 

-i»3096D-02 

lo4545p-01 

2o 3274D-C2 
Ic 5895D-01 

.•6,28190-02 

lo6C80U“01 

8,55920-02 

1,71470-01 

■ 1,0 3970-01 
2, 12080-01 

1,38270-01 

,Y VELOCITY ARRAY 
-lo0300D 00 
• -5o5542D-02 

IN STATIONARY 
-9o 08 53D-01 
9 o8887D-C2 

CCORDINATES, 

-5o8C32D-01 

2,66870-01 

n n.7sb6) 

-4,00250-01 

3,63600-01 

-2o2711D-0l 

4,41690-01 

-1,02870-01 
5, 87640-01 

6ol824D-0i 

6o74760-01 

6,86710-01 

7,27300-01 

8,99490-01 


WHIRL FREQUENCY-ARRAYtRPH 

1 




* • 3o2000D 04 • 

3o2000D 04 
3a20000 04 

- 3o2000D 04 
3 o 2000D C4 
3o2000D C4 

3o20C0D 04 
3,2.CC00 04 
3,2CC1C 04 

3,20000 04 
•3,20000 04 
3,20000 C4 

3,20010 04 
3.0 20000 04 
3,20000 04 

3,20000 04 
3,20000 04 

WHIRL TO SPIN FREQUENCY RATIO 
loOOOOD 00 loOOOOD 00 

ARRAY 

loOCCCD GO 

1,00000 00 

loOOOOD 00 

9,99990-01 

9»9999D-01 

IpOOOOD 00 

loOCCOD 00 

1,00000 00 

1,00000 00 

loOOOOD 00 

‘ToOOOOD. 00.'. 

9«9999D-0~1 

1«0CCCD 00 

9,99990-01 

9,99990-, 0^1’^ 




simji 
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X JISHLALbMENT AkkAV IM STATIQNAHY CCCROINATES, ( INq ) 



-p o-'UbiiU-O 

-Zo^y\nv-o^ 

b- 4.' 9^30- u 4 

bo6313D“05 
bo 397CD-C4 

-2o97A90“04 
lo4456C-04 . 
2o6639D-G4 

-2,04080-04 

-•1,95390-04 

3,90570-04 

-1-0 14270-C4 
2,36440-C4 
4, 94610-04 . 

-4,95970-05 
3o 13270-04 


Y DISPLACi:>1i_NT A^KAY IN S TAT I GN/R Y ' COGRO I NATE S , ( I N® ) 

• 7olUi.0U“0^ 26?9r-C'-f 3o9fc?6D-04 2®732dC-04 

1, 530 10-0^4“ 

6c 64140-05 


b = -.L92U-U3 
-^c^ii3D“04 

-4o bl67D70^ 

-le92S7C-G4 

-4o"^CA2n-04 

-2o61b40-04 
-5 0 2 3000-04 

-3, 16600-04 
-6, 62310-04 

-4, 19490-04 


K3TDK . DLh LtCT i UN 
6jC7i:>D'"34 
4o 1 426G-0 b 

VtCTOP ARRAY 
7o 81780-C4 
9o4ii6n-05 

( IKo ) 

4o9718D-04 

2,41590-04 

3,41080-04 
3,26540-04 . 

1,90970-04 

3,95160-04 

8,28890-05 

5o2356D-0'4 


i>3^ 0j7U“0'+ 

Oo 0116D-C4 

6ol?2?0-04 - 

6,52740-04 

8,26610-04 



PHASE ANbLb A^RAY FUR RUTUK CFFLECTICN VECTORS, DEGREES 



ro 

lo2(-/^l3D Oil 
1 o2o73j Ot_. 
b 5 0 1‘ 7 3 L’ 0 

lo?.6 75D C? 
bo 06781^ C2‘ 
boF)673D 02 

lo2675D 02 
3oOb75D 02' 
?oC675D 02 

1,26750' 02 
3,nb750 02 
3,06750 02 

1,26750 C2 
3,06750 02 
3,06750 02 

1,26750 02 
3,06750 02 


X VtLOClIY ARJ^AY 

“* 2o ji bi 9L 00 

IN STATICKARY 
-2o09<^nD CO 

CCGRCINATES 
-lo3349U 00 

.(IN./SEC) 

-9„15>330-01. 

-5, 12330-0 1 

-2,22580-01 


-Ij 1 i2oU-0i 
io4/blD uO 

^0 5260LJ-C1 
Io6142D OC 

fco4F64D-01 
lo6^26D 00 

0,76730-01 
1,75300 on 

1,06090 00 
2,21990 00 

1,40560 00 


Y VfcLOCiTYv array 
“ ln77FibU 00 
“ao3oi7U-0 2 

IN STATIONARY 
“io5676D ^0 
io 38730-Cl 

CCCRDINATES 

-9o96950“01 

4,8A44D-01 

, ( I N./SEC) 
-6,83810-01 . 
6,54770-01 

-3,83510-01 

7,92350-01 

-1,66160-01 
1,05000 00 


iolOA-AU 0 0 

lo20520 CO 

1,22990 00 

1,30820 00 

1,65670 00 



UHIRL FktgUENCY 

ARRAY, RPM 






bo 2000 D Oa 

, bo20C0U 04 

3o<iOOCD 04 

boZOOOD C4 
bo20C0D C4 
3o20n0D 04 

3,2CCOD 04 
3o2CCnO 04 
3,2CC1C 04 

3,20000 04 
3,20000 04 
3,20000 04 

3,20010 04 
3,20000 04 
3,20000 04 

3,20000 04 
3,20000 04 


WHIRL TO SPIN FRbOULNCY RATIO 
IcOOOOD 00 loOOOOD 00 

ARRAY 

loOCCOD 00 

1,00000 no 

1,00000 00 

9,99990-01 


5o999bU“0i 

ioOocoD no 

UOCCOD 00 

1,00000 00 

1,00000 CO 

1,00000 00 


ioCOOLD 00 

io 99990-01 

I.OCCCD 00 

9,99990-01 

9, 99990-01 

““I 





gABLS U 


,TABia asu5 '' saolASioir ii zejjoo wi 

X- DISPLACtMENT ARKAY I N. STAT lONARY COORD I NATES ,( I No ) 


“ioai47U-04- 

-6oi292D>05 

-2o7i40D-05 

-io 13210^04 
-3o6 3490-05 
. -2» 2215D-G5 

-c«lC150-05 
-4*91760-05 
-1*97950-05 . 

-7*87480-05 

-4*43380-05 

-1*46320-05' 

-6*67570-05 

-3*97490-0^ 

-2*31460-06 

-6*15230-05 

-2*94900-05 


Y DISPLACEMENT ARRAY IN STATION/RY CQORDI NATES, ( I N. ) . 

^^44^4U-04 2o2783D-C4 1o8'3160'-04 1o58470-04 

1*34340-04 

1*23810-04- 


. io2335U-04 

5o46i7D-U5 

io 1340D-04 
H-o4706D-C5 

9*89630-05 

3o98350-05 

8*92260-05 

2*94470-05 

7*99920-05 

4*65790-06 

5*93470-05 


R3T0R DEELbCTION 
2 o 7296U-04 
lo3773D-04 

VECTOR ARRAY 
2o 5440D-C4 
1*26630-04 

{ IN* ) 

2*04530-C4 

l*lC5l'0-04 

1*76960-04 

9*96340-05 

1*50020-04 

8*93240-05 

1*38250-04 
; 6*62700-05 


6o0988D“0:? 

4o9921D-C5 

4o4482D-05 

3*28820-05 

5*20130-06 



PHASE ANGLE ARRAY FOR ROTOR DEFLECTION VECTORS, DEGREES 



ro 

VTL 

iolb42D 02 
1 o 1542D 02 
lol642D 02v 

iol642D 02 
iol642D C2 
1 o1642D 02 

1*16420 02 
1*16420 02- 
1*16420 C2 

1*16420 02 
1*16420 02 
1*16420 02 

1*16420 02 
1*16420 02* 
■ 1*16420 02 

1.16420 02. 
1.16420 02 


X VELOCITY ARRAY 
-6o6555D-0i 

IN STATIONARY 
-6® 20300-01 

CCGPOINATES 

-4o9e69D-01 

-4,31480-01 

-3*65770^01 

-3.3709D-01 


'-3o35a3D-0i 

-lo4b70D“0i 

-3*08750-01 

-lo2172D-Cl 

-2*69450-01 

-1*08450-01 

-2*42940-01 

-8*01750-02 

-2*17790-01 

-1*26840-02 

-1*61580-01 . 

' 

Y VELOCITY ARRAY 
-3o3p72D-0l 
“lob688D-D i 

IN STATIONARY 
-3o 08240-Cl 
-lo 53420-01 ' 

CCORDINATES 

-2*47810-01 

-1*33890-01 

fUN./sEC) 

-2*14410-01 

-1*20720-01 

-1*81770-01 

-1*08230-01 

-1*67540-01. 

-8*02950-02 


“‘7o:5 8 96D*“02 

-6o 04840-02 

-5*3ciCD-02. 

-3*98390-02 

-6*29890-03 



WHIRL FREQUENCY , 

ARRAY, RPM . 






2o6000D 04 
< 2o6000D 04 
2o600UD 04 

2o60C0D C4 
2o 60Q00 04 
2o6000D C4 

2*60C0D 04 
'2 0.6 0 COO 04 
2o6CCGD C4 

2*60000 04 
2*60000 04 
. 2*60000 04 

2*60000 04 
.2*60000 04’ 
2*60000 04 

2*60000 04 
2.60000 04 


WHIRL TO SPIN FREQUENCY RATIO 
• ioOOOOU 00 loOOOOD 00 

ARRAY 
i*6cCOO‘ 00 

1*00000 00 

loOOOOD 00 

1.00000 00 


loOOOOD 00 

loOOOOD 00 

loOCGOD 00 

1*00000 00 

1*00000 00 

1*00000 00 


•loOOOOD 00 

loOOOOD 00 

•loCOCOD 00 

1*00000 oo: 

"" 9’* 9999 0-01 




CONCLUSIONS AND RECOMMENDATIONS 


CONCLUSIONS 


The Rotordynamics Computer program, as developed under this contract, 
can serve as a useful tool in predicting the dynamic performance of 
a rotor -bearing system under various operating conditions*. The 
drive and dissipation torque effects on an accelerating or deceler- 
ating rotor can be analyzed vith this program. 

In addition, the causes and effects of non -synchronous whirl rotor 
motion may also be studied by applying appropriate out-of -phase 
stiffness and positive or negative damping excitations. The compu- 
ter program can be used as an analytical study tool for a general 
transient spin-speed and/or non -axi symmetric rotor motion. 

The computer results of the simulation did not show good agreement, 
in general, with the test data. Some of the causes for the poor 
correlation may have been due to unknown characteristics not included 
in the simulation model. Some of these characteristics are: 

1. unknown damping coefficient associated with bearing, 

2. mount damping, 

3. test mount pedestal stiffness and mass considerations, 

4. bearing non-linear description and 

5. internal hysteretic damping of the rotor. 

In addition, the original intent to iterate the model was not funded; 
therefore, the time and funds to accomplish improved correlation 
between the computer results and the experimental data was not 
available. These items are discussed in the recommendations. 
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RECOMMENDATIONS 


The period of the current contract provided adequate time to update 
the computer program and to obtain verification. An immediate follow- 
on effort is needed to study and correlate the integration process 
with the basic mathematical formulation such that a thorough under- 
standing may be achieved. This would lead to possible improvement in 
computation -to -real time ratio. Other items needed to be included 
are the transverse dissipation, the out-of -phase -stiffness and 
damping functions, and the non-linear stiffness bearing in the 
"STARUF* subroutine. 

In addition, an iteration or parametric study is required to improve 
the Mark-25 model so that a better degree of correlation may be 
achieved between the simulation results and experimental data. 

Recommendations of continued future efforts to improve capability of 
the computer program are divided into 3 groups, with group I repre- 
senting the most important .items, then group II, and then group III 
with the least important items. 

Group I : 

a. In depth study of the integrations between the basic 
mathematical formulation and integration process' in an 
attempt to improve computation-to-real time ratio. 

b. Up-date the ”STARUP" subroutine to include other rotordynaraics 
parameters such as: 

1. Rotor drive torque and dissipation functions. 

2. Rotor in-phase damping and in-phase and out-of-jdiase 
stiffness and damping parameters. 
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3. Non-linear bearing stiffness characteristics. 


Group II ; 

a. Inclusion of the Bearing Mass Parameter . The hearing mass will 
be simulated by a concentrated mass located between a bearing 
and its mount. For a bearing with soft mount design and 
particularly in high speed operation, the bearing mass effects 
should be considered. In addition toihe bearing mass para- 
meter, the bearing transverse mass moment of inertia also 
affects the rotordynamic performance. For normal small operat- 
ing bearing misalignment, the effects of the transverse mass 
moment of inertia parameter are relatively small and its 
inclusion in the rotordynamic study would be optional. 

b. Formulation of Hydrodynamic Force Excitation Functions . 
Particular emphases are placed on the axial pump impeller to 
stator interactions. A linear hydrodynamic force characteris- 
tics should be sufficient at this stage of the program 
develojMient . These force characteristics will include in- 
phase and out-of -phase excitations which may also be functions 
of spin and/or whirl frequencies. The hydrodynamic excitations 
of the close -clearance flow-control surfaces of the balance 
piston such as that used in the Mark-25 axial pumps were found 
to be small compared to other rotordynamic loads and hence they 
will not be included. 

c . Feasibility Study of Advanced Rota ting -Coordinate Systems . A 
feasibility study is suggested to investigate the practicality 
of using advanced rotating coordinates to facilitate the . 
integration process by smoothing out the second order rotor- 
dynamic function fluctuations. The second order function 
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fluctuations may result from cyclic force variations of the 
rotor mass unbalance in a non -synchronous whirl rotor motion 
or from non-isotropic bearing mount force characteristics. 

Group III ; 

Inclusion of the below listed parameters as discussed: 

a . Rotor Casing Mass and Transverse Mass Moment of Inertia, and 
the Casing Support Stiffness and Damping Parameter . In these 
suggested parameters, a rigid casing is assumed. The casing is 
considered to be supported on an inertial frame of reference 
(foundation) through elastic and damping members. The stiff- 
ness and damping parameters include both force and moment 
functions of displacements and misalignments respectively. 

b. Rotor Material Hysteresis . This parameter includes also the 
effects of press -fit and/or bolted joints in an elastic rotor. 
This hysteresis parameter will include both in-phase and out- 
of -phase damping characteristics. 

c. Transverse Sinusoidal Ambient Vibrations. A fixed-amplitude 
and constant -frequency sinusoidal vibration is considered to be 
imposed on an otherwise fixed foundation. It appears that for 
a rotor-bearing system operating under a high-frequency ambient 
vibration condition, the computer time may become excessive 
unless only the steady-state rotordynamic performance is 
studied. An approximate treatment in including the ambient 
vibration parameter is to apply an equivalent cyclic G-loading 
directly to the rotor. This treatment would substantially 
reduce the complexity of the formulation required for the 
inclusion of the ambient vibration parameter. 
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APPENDIX A 


A ‘S- STATIfl'^J s-MASS TfST POThr MonpL, ^lAPIM^,S LHCATEO AT STATIONS 1 AND 
^ ins ANGRLES T CAl TP .APO IL/ A/1970 


NS = 
lASIGN 1 

NOORPM = 1 

NPOINT = 2S 
CRT = 0 

ACCEt '= o 

INPRPM array 
0,0 


NU'^RER CF FOT^R S'^ATIOMS { A LI A?LF ^ ANGE: f =<M S = C?‘S ) 

A ROTOR STATION NU^n'^R M T WHTPl./SPIN FREOUFMCY RATIO WltL PF 

PLOTTED ON CPT 

THE NUMBER OF' SPIN SPEEDS IN RPM AT OP M FAR WHICH ‘^-DIMENSIONAL ABSOLUTE PDTOR 


''HE SPIN SPEFD RPM VALUFS APE LISTED 


MODE SHAPE CPT r7RAPH5 APE REOUIRED, 

'under INPRPM ARRAY, 

(ALLCWABLF RANGE: 0=<NnORPM=<|50 ) 

THE NUMBER OF POINTS (ONE PFP EACH INTEGRATION STEP) FOR EACH CPT GRAPH. 

(ALLCWARLE RAMGE: 1 =< NPOI NT=t< 50 ) 

CRT=0 MEANS CPT IS NOT REOUIRED 
CRT = 1 MEANS CRT IS PEO'JTRFD 

ACCFl=:d MEANS A 3-DI me NS I ONAL ROTOR MODE SHAPECRT CORR ESPO ND ING~TO THAT AT BBG- 
• .INNING OF THF RUN WOULD RE PROVIDED IF CONCURRENTLY CR T= 1 • 

ACC F L=1 me ANS only THE TRANSIENT -SPEED ROTOR MODE SHAPES AT OR NEAR INPRPM 
VALUES WILL BE PROVIDED IF CONCURRENTLY CRT = 1. 

THE rotor spin SPEED RPM VALUES AT ’ OR NEAP WHICH CRT GRAPHS fqp 
3-DIMENSIONAL ABSHLIJTF ROTOP MODF SHAPES ARE REQUIRFO 


T 


O.G 

DT 

= 

I .00000-0*" 

TMAX 

= 

?.0D00D-0"> 

tol i ' 


"iTodboD-'o? 

tolr 


1 .OOOOD-0? 

TSTOP 

= 

5.000CD-01 


GX 

= 

0.0 

GY 

= 

0.0 

TM7 

= 

0.0 

tmz 1 

= 

0.0 

TM7? 

= 

0.0 

TMZ3 

= 

0.0 


INltlAL"PEAL time,' sEC. 

ESTIMATED INITIAL •INTEGRATION STEP (REAL) TIME, SFC . 
TOTAL REAL TI MF TO BE RUM, SFC. 

INTEGRATION 'tOLFPANCE, FRACTION 

TOLERANCE IN COMPUTING REARING DISPLACEMENTS, FRACTION 
THE COMPUTFP TIME ALLOWFD FOP EACH S FT OF DATA, ’^INUTES. 


GRAVITY OR G-L^ADIMG IN X OTPECTIPU, IN/SFC^’J^p 
GRAVITY OP G-LOADINr- IN Y DTRECTinN, I N/ S FC’^'’}' ? 
EXPONENT FOP SPEED SFNSITIVF ROTp:^ DRIVE TOKOUf 

coffficifnt fop rotor dptvf torque 

coefficient fop rotor drive torque, (TN-LB-SrO/RAn. 

coefficient fop pOTOQ nRlV-*- I N-L R 



DO AR'i^AY nUTSIDF DIAYfcTFPS 0 ^ '>0T‘1P SFCTIOHS A)JAi'‘Ml ' unf^ T AT ION S t 

1.00000 01 i.ooocD 01 i.ro^rn ci i.o.'tr'i i oi 

D ARRAY INSIDE OIAMETEPS POT OR SFCTIOMS P.FTWr*-”^ AOJACrMT t^f-TOR STATIONS, 1^. 

p.O 0.0 0.0 0.0 

QL ARRAY RCTQ^ SE:tION LENGTHS BETWPFM ADJACENT RnmR STATIONS, IN. 

l.COOOO 00 I.OOOOD 00 I.OOOCD DO l.O'OOO 00 

DN ARRAY ’AATFRIAL DENSITIES nr ROTOR SFCTIONS BETWEEN ADJACENT STATIONS, LR/IN*^3 

3.00000-01 3.0000D-01 3.0000D-01 3. CO 00 0-0 1 

EE ARRAY YOUNGS MODULI nc rotQR SFCTIONS BFTWFFN ADJACENT STATIONS, LB/IN^*2 

. 0.0 0.0 0.0 G.D . . 

GO ARRAY shea:? MODULI OF ROTOR SECTIONS BETWEEN ADJACENT STATIONS, LB/IN*’^2 

,l.lSCOn 07 I.ISOO.D 07 . I.IIOCD. 07 _ ,.1.15000 07 

H ET ARRAY OIRF:t INPUT OF THF‘ PRODUCTS OF YOUNGS M'^OULI AMO AREA MOMENTS OF INERTIA OF KOTOR 

■H SECTIONS 8ETWTF.N ADJACENT STATIONS, LB-IN»<'2 

1.6C67D 0^* 1.S6670 0^ 1.66A7D 04 1.6S67D 04 

GAK ARRAY DIRECT INPUT OF THE PRODUCTS OF SHEAR MDDJLI, CFOSS-S FCT lONAL AREAS 

AND ^RECIPROCALS OF SHEAR STPFSS C niNCE NT R AT I ON FACTORS BETWEFN ADJACENT STATIONS, LB. 

0.0 0.0 0.0 , 0.0 

AM array' ADDITIONAL ROTOR MASSES AT ROTQR STATIONS, I LB-S FC«* 2 ) / IN . 

0.0 0.0 C.O 0.0 0.0 

Alb array”* additional" ROTOR TRANSVERSF mass moments of inertia at rotor stations, (I B-IN- SFC** >] 

0. 0 0.0 C.O 0.0 ■ 0.0 

ATRO array '“additional ROTOR POLAR MASS MOMENTS OF INERTIA AT ROTOR STATIONS, ( L B- 1 N- S^C 2 ) 

1. nooOD -16 l.OOOOD -16 1.00CCD-1A I.OOOCD-IS 1.0"^000-!A 

FCC ARRAY ROTO^ MASS T C F Nt p J f I n fS AT p'^TfiR STATIONS, IN. 

l.OOOOD-03 1.00000-03 l.nO'DOn-03 l.O^O^D-0^ l.^OOOD-n 

ALFA ARRAY PHASE ANGLES FPR RnTn:> MASS f^CC r ^:T P { f I "^Y YFCF IR? AT RPTCR STATIOKfS ‘‘FASUFFO Fk'I'.'THE 

INITIAIi ROTOR SPIN ANGULAR POSITION, DEGREES 
4.50000.01 ..4.50000 01 4.5no00 01 Dl 4.^0000 ci 



A '- v -' Ay 


A,n 

GA.mmA A5PAV 
O . P ' 

'rj AR^AY 

o.c 

:Zl ARRAY 

0.0 

I 

;'C7R APR AY 

H »‘ 0.0 

fOi 

jXKP ARRAY 
0.0 

XCF ARRAY 
0.0 

XKFF ARRAY 
0.0 

XCFF APRAY 

0.0 

OK AR/^*Y 
0.0 


ImITIAL SALIGN'-iFNTS bFTWFTN THF AXFR hf thf '^’ASS MHMF^ITS OF INERTIA 
AND the -la STIC AXES AT onjnp STATin^S, 0'=0PFFS 
3.0 0.'"' 0.^ 0.0 

ANGULAR DGSITICNS 0 *= thf X-Y dLANF PROJECT IDNS * 0F THE AXES OF MASS MOMENTS OF 
INERTIA AT PQTPP STATIONS A S 1 H-’ F O ' F ^ hm THAT AT THE ^IRST ROTOR STATION, ncf,PFFS 

0.0 0.0 0.0 0.0 

ThrsONAL friction EXP^^Jc^TS ROTC-P STATIONS, 0 P1FN5 lONL E SS 
0.0 O.Q , O.n 0.0 

TORSIONAL FRICTION COFFFTCIFNTS AT RnyOR STATIONS, OIMENSION QF C Z 1 ( n*FDQT*>;cC 7 ( I) 
IS IN-L8. 

0.0 0.0 0.0 0.0 

TORSIONAL FRICTION COEFFICIENTS AT ROTOR STATIONS, UN-LB-SEC) /RAO.. 

0.0 0.0 0.0 0.0 

WHIRL-FREQUENCY FACTORS FOR STIFFNESS FORCE COEFFICIEMTS AT ROTOR STATIONS, 
DLMENSIQNLESS 

0.0 0.0 0.0 0.0 

WHIRL-FREQU¥nC yTaC^FIRS for' DAMPING FORCE COEFFICIENTS AT ROTOR STATIONS, 
DIMENSIONLESS 

0.0 0.0 0.0 0.0 

WHIRL-FREQUENCY FACTORS FOR STIFFNFSS MOMENT COEFFICIENTS AT ROTOR STATIONS, 
DIMENSIONLESS 

0.0 0.6 0.0 O .'^ 

WHIRL-FREQUENCY FACTORS FOR DAMPING MOMENT COEFFICIFNTS aT rOTOR STATIONS, 
DIMENSIONLESS 

0.0 0.0 C.O 0.0 

IN-PHASb STIFFNFSS FCIRCF COF f F I C I ENTS AT pOTOR STATIONS, LB/IN. 

0.0 0.0 0.0 - 0.0 

TN-PMASr DAMPING FOPf, r CnrFriCIFNTS AT POTOR STATIONS, aB-SFC)/IN. 

0.0 0 .*^ c.r u .? 


OC APRAY 
O.o 



OKO ARP AY 
0.0 

OCP aroaY 
0,0 

0<HO A^PAY 
0 . 0 . 

OCHD ARRAY 
0.0 

OKF ARRAY 
0.0 

OCF ARRAY 
■ 0.0 

QKPF ARRAY 
0.0 

OCPF ARRAY 
0 . 6 ' 

0<HDF ARRAY 
0.0 

' QCHDF ARRAY 


. stu rM<^SS roprr- r-ipf j- rc t '-‘irs \r potur s’^att^ms, L*^/r'l. 

o.o 0.0 0 .'' 

fJlIT-OF-RHASh U A ’'*0 1 NO f r { C I F MTS AT ROTHP ''•T AT IONS » aO-SFO/Th. 

0.0 O.O 0.0 

0UT-3=-PHASF WHI'^L AMO S'^IM YFLOCfTy SFNSITIVF STIFFNESS FO»CF C3 GF F fC T T S AT ROTOR 
STATIOMSt { L8-S EC) /UN-RAO) 

0.0 0.0 0.0 0.0 

0UT-3F-RHASG WHIRL AMO SPIN VELOCITY SFN5ITIVF DAMPING FORCE CnEFFTCIFMTS At POTOP , 
STATI HNSt (LB-SFC**?) /(I N-PAD) 

0.0 0.0 0.0 ■ 0.0 

. IN-PHASE STIFFNESS MOMENT COEFFTCTFNTS AT ROTOR STATIONS, IN-LR. 

0.0 C.O 0.0 0.3 

IN-PHASE „DAMPI NG *^OMENT ^CpEFF TC lENTS AT ROTOR ST AT I ONS , -.I N-LB-$EC,. 

0.0 ^ ' 0.0 0.3 . 3*0 

3UT-3F-PHASE STIFFNESS MOMENT COEFFICIFNTS AT ROTOR STATIONS, IN-LB. 

0*0 0.0 0.0 0.3 

OUT-DF-PHASE CAMPING MOMENT COEFFICIENTS AT ROTOR STATIONS, IN-LB- SEC. 

* 0.0 0.0 0.0 0.0 

PUT-3F-PHASE WHIRL AND S^IN VELOCITY SFNSITIVF STIFFNESS MOMENT COEFFICIFNTS AT 
ROTO^ STATIONS, ( LB-I N-SEC ) / R AD. 

0.0 0.0 0.0 0.3 

' bUT-3F-PHASE WHIRL AND SPIN VELOCITY SENSITIVE DAMPING MOMENT COEFFICIFNTS AT 
rotor STATIONS, ( LR-I N-SEC )/RAO. 

0.0 0 . 0 - 0.0 


0.0 


0.0 



m 


NUMI^PR OF NnH-Lrf'lFAR 5TIFFNFS5; BFARIHOS, (ALLOWABt.F KANGE: 2=<NB=<12) 


Tb APPAV 
I 

K APRtAY 

1 


STATIM'X' NU'*f^F«>S FTP NHM-UMFAP STIFFNESS PFARINGS 


TOTAL NUNRFR OF STIFFNESS SECTIONS FOP FACH OF THE MON-LINFAR STIFF'mESS BF APINGS. 
.(ALl'lWA'UP' RAN(;F: ]=<K=<^> 


RKMX APPAY 

R.ocoro OA 


NON- I SOTR OP I C MOUNT STIfFMFSS COpFFICIpNTS IN X-DIR'=CTIPN FDR 
NON-LINEAR S TI FFNF SS' RE AR I NOS » LP/IN. 

B.OOOCD 04 


BkMY ARRAY 

8.0000D 0^ 


NCN-I SOTPOPIC MOUNT STIFFNESS COEFFICIENTS IN Y-OTRFCTlON FOR 

non-linear stiffnfss bearings, l-b/in. 

B.OOOOD 04 


BCMX ARRAY 


t.oooon - 16 


NQN-I SOTROPIC mount DAMPING COEFFICIENTS IN X-OIRRCTION FOR 

NON-LINEAP STIFFMFSS RF AP I NGS , ( LB-S FC )/ I N , 

l.OCOCD-16 


BCMY ARRAY NON- 1 SOTR OR I C MOUNT DAMPING COEFFICIENTS IN Y-DIRECTION FOR 

NON-LINEAR STIFFNESS BEARINGS, (LB-SEO/TN. 
l.COOOD-16 ■ l.OGOOD-16 


BC3 ARRAY BEARING DAMPING C HEFF I C LENTS FOR NON-LINTAR STIFFNESS 3FARINGS, (LB-SEC) /IN. 

l.OnoOD-16 l.OCOOD-16 



NrMLlMrAR =^FAPlNr, <; f>r.r i fit at idns 


(3MB ARRAY 


o.c -■ 


ROTOR SPiN'-SP-r:) SFVsirivr- bcaping sr ii-*»‘''U Ss c’of 

SFCTIONIS OF 'NON-LINFAR STJFFfvJE*^? BFAP IMG NOMRFP 1 


BNB ARRAY 


0.0 


ROTOR SRIN-SPEFn SENSIT[.VF BF APING STIFFNESS COEFFICIENTS FOR 
SFCTIONS OF NON-UNFAR STIFFNESS REARING NUMBER 2 


RBB ARRAY ROTOR SPIN-SPEED SENSITIVE RFARIMG STIFFNESS COEFFICIENTS FOR 

•SECTIONS OF SEARINGS FOR NON-UNFAR STIFFNESS BFAR ING NUMBER 

0.0 

BBB ARRAY ROTOR SPIN-SPEED SENSITIVE BEARING STIFFNESS COEFFICIENTS FOR 

SEC T I ON S OF BE A R T NG S_ F 0P_ NON- L I N E AR S T I F FN ES S BEARING NUM B ER 

0.0 


BPOB ARRAY 


5.00000-03 


UPPER BEARING-DISPLACEMENT LIMITS FOR K STIFFNESS SFCTIONS OF 
NUMBER i, IN. 


BROB ARRAY UPPER 3 E A R I NG-D i SPLAC EMENT LIMITS FOP K 5TIFENFSS SECTIONS OF 

NUMBER 2, IN. 

5.00C0D-03 


BKB ARRAY NON-LINEAR REAPING STIFFNESS COEFFICIFNTS FOR K STIFFNESS 

SECTIONS OF BEARING 
NUMBER 1 

B.OOOOD OA 


RKB array NGN-LINEAR BEARING STfFFNFSS COEFFICIENTS pnR K STIFFNESS 

SECTIONS OF BEARING 
NUMBER 2 

8.00000 OA 


BHB ARRAY 


K stiffness 

K STIFF^iFSS 

K stiffness 

1 

K STIFFNESS 

2 

BEAR INJG 

bearing' 


1. COGOD 10 * 


NON-LINEAR BEARING STIFFNESS EXPONENTS F<^R K STI*=FNrsS SECTIONS OF HFAPIMG 
NUMBER 1 



I?MR ftRD AY 

BOB 4RO AY 
0*0 

ROB Aj^R&Y 
O.O 

RER APP AY 
0.0 

REB ARP AY 
0.0 


MPN^LINFAP REARTMO STIFPNF<*S PXPPNENTS FOP K. ST T F FN GSS ‘ SFCTIGN S OF PE'A'PTNG’ 
OUMRFP ? 

Nf’Ni-L T N)F Ai^ PFARTMC STrFrN''‘;s r/“i- r P i f T ^NT S FOR K STIFFN'ESS SFCTIONS PF BEARING 
NUMBFR 1 


NON-LINEAR BEARING STTFF^'^‘;^ cni'mCIENTS K STlFFTiESS SECTIONS PF RFAPING 

NUMBER 2 


NON-LINEAR BEARING STIFFNESS CPFFFICIENTS FOR K STIFFNESS SECTIONS OF BEARING 
NUMBER 1 


NON-LINEAR BEARING STIFFNESS COFFFICIENTS FOR K STIFFNESS SECTIONS OF BEARING 
NUMBER ? 



JMTTJAI pnrnp 'winjjoM $p‘:r, I r T CAT 


= ■» ICOND = l MFANS STA«^TINC A mFW RPT PP.- Af\ I MG CONFIGURATION 

IfOND^O •'1EANS Rn>\p-iM ALTFPMATF IMITIA!. CPNOITIPNS FOP T'HF SAMF 
paTOP-BFARI r'G CPOFIGUPATTON 

CONTIM = 0 CrNTIN=G MEANS STARTING A MFV P nr pFQY NAM T CS ANAIYSIS WITH INITIAL CONPiriNS 

PPDVIP^n BY THF STARNP SUBPOUTTMF 

CCNTI.N = l MEANS rnMTIMUlTIHM np A PkEVTMUS ANALYSIS BY USING THF PRE'/inUS 
RESULTS PN PiJNCMFD CARPS AS THE INITIAL CONDT IONS 

FD = 0.0 ROTPR SPIN ANGULAR DISPLACEMENT COORDINATE, DEGREES. 

foot = l.OOOOD 02 RPTOR SPIN FREOUFMCY, RPM. 

WHIVEL = 1.00000 02 POTOR WHIRL FREOUENCV , RPM. 

FOOFIX = 0.0 A LEAPING STIFFNESS SPEED SENSITIVE PARAMETER, RPM 


THE END OF INPUT DATA 

H 

VjJ 


TOTAL ROTOR WEIGHT,LB = <^.A248D 01 

TOTAL ROTPR MA S S, ( L B* SEC **2 ) / 1 N = 2.A4U0-G1 

TOTAL Rotor polar mass moment of INFPTIA, LB=«'IN^SF0*2 = 3.0514D 00 



rnpcr TNFIJJCm:f C^'FFMCIFNTS 


RHW 1 

0,0 


0.0 


0.0 


0.0 


0.0 


ROW 7 

0.0 4.50CnOD-0'i 5.*SC 007^0“f'F -j . qn ro3F 0-0=^ 0.0 

ROW T 

0.0 5.500C.73D-05 8. CC 0^ ''*60-0=! 5. F 00073 0-0 6 0,0 


ROW 4 

0.0 • 3.5C00360-05 5 . 50 0073D-05 4.5001100-05 0,0 

ROW 5 

o.’n 0.0 ‘ ’ o.o' 0.0 


^ ■ THE TABULATED FORCE INFLUENCE COEFFICIENTS' ABOVE AHE THOSE WITH RESPECT TO THE STRAIGHT 

^ LINE CONNECTING THE FIRST Al© LAST JOfURNAL CENTERS OF THE NON-LINEAR STIFFNESS BEARINGS, 

THE ROW NUMBER REPRESENTS THE ROTOR STATION NUMBER WHERE A UNIT TRANSVERSE LOAD OF 
1 LB IS APPLIED, AND THE COLUMN 'NUMBER NOT SHOWN ABOVE, DENOTES THE ROTOR STATION 
NU MBER WHERE THE RESULTING DEFLECTIONS IN INCHES ARE DESCRIBED. SINCE THE FORCE .INFLUENCE 
COEFFICIENTS ARE SYMMETRIC ABOUT THE DIA-GONALb, ROW AND COLUMN NUMBERS MAI BE INTERCHANGED. ’ 





MOMENT INEUJ’^NCC 

C0EFPICirNT9 



o 

• 

O 

O 

} 

5.2^9O9Of)-05 

5, 9r 99000-05 

3. 749000 0-0'^ 

9.0 

ROW 

0.0 

7 

;?.c;coQr90_05 

4. ^9 0 99 *^0-0 5 

2.^999990-0*^ 

^.0 

RDW 

0.0 


-7.’499999D-06 

3.3e81-^?D-?l 

7.49O999D-06 

0.0 

ROW 

0.0 

4 

-2.999<5C9[)-o5 

-4.499999D-05 

-2.9999990-05 

o 

• 

o 

ROW 

0.0 

5 

-Y. 7 ^<39 990 -05 

~5.'99999qo-C5' 

-5. 2499990-05 

0.0 


^ THE SIGNIFICANCE OF THE TABULATED MOMENT INFLUENCE COEFFICIENTS CAN BE 

^ SBCCLARLT INTERPRETED AS THAT OF THE FORCE INFLUENCE COEFFICIENTS, EXCEPT THAT 

•A UNIT MOMENT (1 IN-LB) APPLICATION IS USED INSTEAD OFA FORCE APPLICATION, 

THE COLUMN NUMBER REPRESENTS THE ROTOR. STATION NUMBER WHERE THE RESULTING 
DEFLECTIONS IN INCHES ARE DESCRIBED. SINCE THE MOMENT INFLUENCE COEFFICIENTS 
ARB NO LONGER SYMMETRIC ABOUT A DIAGONAL, INTERCHANGE OF THE COLUMN AND ROW 
IS NOT PERMISSIBLE. 



^LEM-EMTS !N RnT/\TINO CDURH I MA TH S : 


3 . 

\ .2'^6‘5D-C6 

1 .M"' :^7n-nA 

1 . 2 >650-05 

3 . 7 

7 . 35400--) 1 


7.85400-01 

7 . H400-01 

7.3'=;4on-Di 

1 . 1 0-?9 

0.0 


0,0 

1 . 50710-2? 

I.D472D 01 

- 1 ,0 472 0 01 

1.04720 01 

1 .OA72D 01 

1.04720 01 

r.c 

> .04720 01 



THE ROTATING ELEMENTS 

1 SHOWN ABOVE 

ARE THOSE UNDm THE INITIAL TIME CONDITIONS, i, 


A STARTING TIME, 

■ THE ‘HRST NS ELEMENTS IN ROTATING COORDINATES REPRESENT THE ROTOR RADIAL DISmi^CMENTS 
AT STATIONS 1 THROUGH NS raTH RESPECT TO RESPECTIVE STATIC ROTOR DEFLECTION CENTERS 
IN INCHES. THE STATIC ROTOR DEFLECTION CENTERS ARE THE ROTOR POSITIONS UNDER 
ZERO' SPIN SPEED CONDITIONS BUT INCLUDING THE EFFECTS OF AND g^. 

THE SECOND NS ELEMENTS DENOTE THE ABSOLUTE ANGULAR DISPLACEMENTS OF THE RADIAL 
-DISPLAGiMENT VECTORS- IN -RADIANS 

THE THIRD NS ELEMENTS REPRESENT THE RADIAL VELOCITIES OF THE RADIAL DISPUCEMENT 
VECTORS IN INCHES Pm SECOND. 

THE FOURTH NS ELEMENTS DENOTE THE ANGULAR VELOCITIES OF THE- DISPLACEMENT VECTORS 
IN RADIANS Pm SECOND. 

WSECOND 'IAST'ELEIMT'REPRE 'the' rotor spin angular DISPLACEMENT IN RADIANS,' AND 
THE LAST ELMENT DENOTES THE ROTOR SPIN VELOCITY IN RADIANS PER SECOND. 



1 . 1 

] , 1 Qc»n n 1 
r» . /yS *^0- 1 -j 

t , ^aa^'vo^O- ■? 1 


01 

1 .4fCwc7A- X I 


1 , *> 
1.0^710^0 Ai 

6. 00 I <*f <-•» 1 


r A 

“?,i*S86!>9n-13 
.327394f)*-l 1 


1 .5C71?f>D-27 
4*61ASQ70~1^ 

*=; *96^10^5 0^11 


1.0471080 Cl 
L.53ft291D~ 13 
3.1 14S690-U 


1.047193D_01i 
4,61 53S9n-14’ 
1.0471930 01. 


THE BD*S LISTED ABOVE ARE THE CORRESPONDING TIME (SECOND) DERIVATIVES OP THE 
PREVIOUSLY LISTB2) ELEMENTS IN ROTATING COORDINATES. THESE BD»S ARE EVALUATED 
AT THE LAST SPECIFIED REAL TIME. 



M TM>= TT^'F; T= 1 ,o?‘^ 6?5D-0^ 
y niVH ACrMFf^j i\Rt?AY IS} SfAmhAOY rnnRr)|.\»/\TFS,(IN,) 


P. 

R. 56520-07 

1 .H09D-06 

8.56520-37 

2.320‘"D-07 

Y PTSPL ACF^^.rNT ARRAY IM STATIONARY C O'^R 0 J MA T PS t H H . ) 


41,Arn-07 

B. 91780-07 

1 .15670-06 

8.91780-07 

?.416C0-f 7 

RQTnR OFFirCTinN 

VECTOR ARRAY 

(IN.) 



^Aoon-07 

1.23650-06 

1.60770-06 

27650-36 

3.34900-07 

PHASE ANOLF 4pRAV 

FOR ROTOR DEFLFCTinN VFCTORS, DFGREES 


^.61550 01 ' 

4.6155D 01 

4.61 550 01 

4.61550 01 

4. 61^50 01 

X vflocity array 

IN STATIONARY 

COORDINATFS, 

(IN.) 


-2.S3000-C6 

-9.33870-06 

-1.21120-05 

-9.33870-06 

-2.53C00-06 

H Y VFLOC TTY ARRAY 

IN STATIONARY X OOPOI NA TE S , 

(IN.) 


w 7.43000-06 

8.96950-06 

1 .16340-05 

8.96950-06 

2.43C00-06 

WHIRL FPEQUBNCY ARRAY,RPH 




l.OOOOO 02 

1 .00000 02 

1.00000 02 

l.boCDD D2 

l.OOOOO 02 

WHIRL TO SPIN FREQUENCY RATIO 

ARRAY 



l.oooon 00 

l.OOOOO 00 

1.00000 oo 

1.00000 DO 

i.DOOOD 00 


TOTAL NO. hf REVOIUTIONS 

SPIN SPFFO, RPJM 


3.20040-0? 
l.DOOOn 02 ‘ 



XB APRAY BHAPING ■) I SPLACFM(^NT COPPOfMATr, j|\j, 

1.16020-07 1.16020-07 

YB array' BFARING 0 I SPLA c’c MF NT CHORDINATF, IN. 

1.2080n-07 1.20800-07 

XBOnT ARRAY BFA^ING YFLOCITY COHROIMATF, IN/SFC. 

-1. 26=^00-06 -1.265GD-06 

YBDOT array' bearing VELOCITY COQROT NATFt ' I N/S EC . 

1.21500-06 1.21500-06 


BRGPO ARRAY JOURNAL 0 1 SP LA CE^MFNT FROM BEARING-CENTER ARRAY, IN. 

1.6749D-07 1.67490-07 

PHABRO ARRAY JOURNAL D I SPL ACF ^^ENT VECTOR PHASE ANGLE COUNT FR^CLOCK W IS E FROM X-AXIS, DEGREES 

4.6155D 01 4.61550 01 ' 

& 

BRGEOP ARRAY BEARING REACTION ARRAY, LB. 

1. 34000-02 1*^34000-02 

PHAFOR ARRAY BFARING REACTION VECTOR PHASE ANGLE COUNTER-CLOCKWISE FROM X-AXIS, OFOPEFS' 

4.61550' 01 4.61550 01 

STIFF ARRAY BFARING FORCE TO JOURNAL OEFLFCTION PATIO, OP FQUIVACFNT LINEAR BEARING 

STI = FNESS, LB /IN/PEARING 
8.0000D 04 8.00C00 04 


THE APPROPRIATF DERIVATTVFS BD,S 

-3.4016710-1 6 1.8139530-16 3.89755C0-16 1 . H 1 41 1 0-1 ^ . 4'^ I F7 ^0- 1 8 

1.047198D 01 1.0471C8D 01 1.0^71080 01 -7.113^110-14 1 . 67 7 1 D- 1 7 

-7.11230 30-14 -3.7994490-09 -1.679 8910-09 -] .62P23F0-0O -1 .6 7>3 5 42n-09 

-1.2113550-20" 


T.04719R0 C’ l.t 4^19^0 01 

2.74P8 9 7D-13 1 . 7 7.7 i B 

-3.7661010-0-^ i.f', 01 



APPENDIX B 


COMPUTER PROGRAM LISTINGS 

A complete set of the computer program Fortran Listing is attached* 
This includes also three library subroutines "ISIMDD," ”TIMEV‘* and 
COUNTV” which may not be available in all the computation facilities. 
Subroutine CONTV is a part of TIMEV subroutine. 


The main program and subroutine names and corresponding memory length 
reqvdred are: 

^{MEMORY REQUIRED IN 

NAME HEXADECIMAL BYTES 


MAIN 

READIN 

WRI0UT 

STARUP 

FUND 

BRGXY 

INFLC0 : 

SZMASS 

PL0T1 

RKADAM . 

RUNKUT 

ADAMLT 

TIME 

ISIMDD 

TIMEV 


2EC2 

D31; 

38AC 

158U 

2EEA 

9EE 

B12 

5F8 

29A 

3CC3 

6DE 

D2C 

20C 

7D6 

25H 


^he memory capacity required for "MAIN” “WRIOUT" and ”PL0T1" may slightly 
deviate from the exact values resulting from cheuiging to NASA CRT Sub- 
routines and minor modifications after memory capacity counts. 


Ihh 



o o n 


A SImPUKIEU ELEXIBte KOrOR DYNAMICS CUMPUThK PROGRAM WRITTEN FOR 00768000 
NASA LEWIS research CENTER, CLEVELAND, UHUJ, 8Y FRED. A. SHEN, 00769000 
POWER systems DIVISIUNS, IMURTH AMERICAN RUCKWhLL CURP.,LUS ANGE Lb SOO /70000 
CALIFURNIA, may 1970. 00771000 

IMPLICIT RbAL^a (A-H,0~2) 00772000 

INTEGER CRf , ACCEL, CUNTIN 00773000 

REAL TITLE,INPRPM,Z,R0U,TT,KPM,WHRATI , FDRC , BRGR, ROmAX, RUSTA 00774000 

1, HSTAR4,RSrAR6,RSTAR6 U077SOOO 

DIMENSION DU(2b) ,D( 25) ,(0L{ 2b) ,DN( 26) , AM( 25) ,AID( 2500776000 

1 ) ,AIRU(25) , ECC ( 25 ) , ALFA ( 25 ) ,BE FAi 25) , GAMMA ( 25 ) 00 777000 

2, T I TLE { 36 ) , YSAVE U02 ) , SP 1 3 ) 00778000 

DIMENSIUN 0K(25) ,OC(25) ,QKP{25) ,0CP(25),QKHD{25) ,0CHD(25),0KF{25UO781000 
1) ,QCF(25) ,OKPF(25) ,0CPF(25) ,0KHDF(25) ,QCHDF(25) 00782000 

2,IBU2) ,K(25) . 00783000 

3,8KMX{25) ,BKMY(25) ,BCMX{25) ,BCMY{25) ,BC8(25) , RCH25) 00784000 

4r8N6(25,6) ,BB6(25,6) , BRU8(25t7) , 00785000 

5C(25,25),B(25,25) 00786000 

DIMENSION XX(25) ,YY(25) ,XDOn25) ,YDUTI2t?) 00789000 

1,XB(25) ,YB(25) ,XBD0T(25) ,YBDDT(25) 00790000 

1,QM(25) ,06LrX(25) ,OELfY{ 25) ,WHKVL0(25) , WH I RPM ( 25 ) , Y ( 102) ,KK( 25) , 00793000 

2BKGRUI25) ,PHABKU{25) ,BKGFOR(25) , PHAFUR ( 25 ), WHRAT U 50 ), ST I FF C 25 ) 00794000 

4,R0$0(25) ,WHRArU{25 ), RUM AX (50) , I ST ATn ( 50 ) , RPM ( 50 ) ,RUSrA(50) , INPRU0797000 

5PM (50) ,RUU(25) ,PHARUU(25) ,2(25) , BRGR ( 50 , 12 ) , FURC( 50, 12 ) ,TT(50) , 00798000 

6SZ(25) ,20(25) ,SZUL(25) ,2Q0L( 25) ,(JZ(25) , ZSUL ( 25 ) , QZUt ( 25 ) U0799000 

CUMMUN/MAREAD/TITLE, INPRPM, f,DT,TMAX, TMZ, f MZ 1 , TMZ2 , TMZ300B03000 

1, TOLI, IMUURPM, lASIGN, CRT, ACCEL OU804OOO 

C0MMUN/MAFUF1/DD,D,(^L, NS,N8, IB 00806000 

C0MMUN/MAFUF2/ SZ ,QZ , Z(4 , SZDL , ZSUL ,OZOL , ZOOL , QHLOV , QLL 00807000 

C0MMUN/MAFUF3/ IB1,IBNB 00808000 

C0MMUN/MAFUF4/ Z 00809000 

1 /mAFUO/ITIM, INT,KK 00810000 

C0MMUN/MArU14/ FDUFIX 00810500 

COMMUN/MAFUI/ TST0P,K 00811000 

C0MM0N/MAFU2/ DiM , AM , AID , AIRU , ECC , ALFA , BE f A, GAMMA, GX, GY 00812X)00 

1 /MAFU3/WHIVEL 00813000 

C0MMUN/HAFU5/ QK,(RC , (OKP , OCP ,0KHD ,OCHD ,OKF , (OCF, t)KPF, OCPF ,0KHI)F ,(OC00815000 
IHDF, BKMX,BKMY,BCMX,8CMY,BC8 00816000 

C0MM0N/MAFU6/ BNB,BBB,8R0B 00817000 

CUMMUIM /MAFU7/RUS0, WHRVLU , DELTX , DELTY 00818000 

CQMM0N/MAFU9/ C,8 00820000 

1 /MAFU10/KU,PHAR00 00821000 

COMMON/MAFUll/FD,FDUr 00822000 



1 

X 

1 

1 

2 


/MAFU13/Y 

/SFPl/t<PH,IMPOIlMT, ICOiMD,CUNriN 

/SFP2/NSM1,NSM2,(MSM3,NSP1,NS2,NS3,NS4,NS4P1,N,NS2P1 
/GAR8G7/XXtYYtXB,YB,XDUT,YD0r,X3D0T, YBDOr 
/GARBG9/YSAVE , WH I RPM , BRGRG , PHABRO , BRGFOK , PHAFOR,'WHKATU , 

5 \ fliuJ A V T C T A T..I .win rwi .1 i t- ^ ^ 


3PHARU(2b) tRUMAXt ISTATivJ ,RUOtBRGR,FORCt rT,WHRAri 
CUMMGN/MAFU12/ QH 
DATA PI/3,14159265358979324/ 

404 FORMAT ( 7X , 1 P6E 13 .4 ) 

A=180/PI~ ■ 

H= 30/PI 


V=1/(2*PI ) 
GU TU 2 ' 

1 KA=0 


DO 5 1=1, Nt 3 
SPll)=Y(I) 

SP( 2)=Y( I+l) 
SP(3)=Y(I+2) 

KA=KA+1 

i> PUNCH 106,SP,KA 
106 FORMAT ( 1P3U22 • 15, 6X , I 8 ) 
2- CALL COUNTV 
TMIN=0 
^ ICC==0 
^ CALL READIN 
CALL WRIOUT 
TR=T 
IC=0 


ITIM=1 

IND=0 

INT=0 

MM=1 


MAXSHF=0 
WHIVEL=WHI VEL/H 
IF( IC0IMD.EQ,0). GO TU 3 
DO 33 I=1,NB 
IBI = IBU ) 

33 KK{I8I)=1 

IB1=IB(1) 

I6NB=I8 {N8 ) 

CALL SZMASS 
CALL INFLCO(C,B) 


00823000 

00824000 

00824100 

00824200 

00824300 

00824400 

00825000 

00825500 

00826000 

00826100 

00826200 

00826300 

00826400 

00826410 

00826420 

00826430 

00826440' 

00826450 

00826460 

00826470 

00826480 

00826700 

00826710 

00826800 

00828000 

00829000 

00829500 

00830000 

00831000 

00832000 

00833000 

00834000 

00836000 

00837000 

00838000 

00845000 

00846000 

00847000 

00857000 

00858000 

00859000 

00860000 



DO 22 J=1,NS 
DELT=:0. 

OU 23 1=1, NS 

23 DELT=DELr+C(I,J)*QM(I) 

DELTX( J)=DELT».'«GX 
22 DELTY( J)=D6LT^«GY 
3 IC0ND=0 

IFICUNTIN.EQ.DG0T080 
GO TO 8 

7 ITIH=L 
DT=0.1*DT 

8 CALL STARUP 

DO 95 1=1, NS 

INS=I+NS 
I2NS=I+NS2 
I3NS=I+NS3 

PHAROO( I ) = PHAROU( I ) /A 
XNUTR=RO ( I ) *DCOS { PHAROO ( I ) > 

YNUTR=RO( I )>;^DSIN( PHAKOU( I ) ) 

XDOT ( I ) =-WHI VEL’I'YNU TR 

YDOTU )=WHI VEL^XNUTR 

Y( I )=DSQRT ( XNUTR'^*2+YNUTR^»!^2) 

Y( INS)=OATAN(YNUTR/XNUTR) 

Y( I2NS) = (XNUTR^:«XDOT( I ) +YNUTR*YDO f ( I ) )/Y( 1 ) 

95 Y ( I 3NS ) = ( XNUTR^i^YDOT ( I ) -YNUTR^^XDOT ( I ) ) /Y ( I ) ^^-2 
Y ( NS4P1 )=FD/A 
Y(N)=FD0T/H 
80 WRITE(6,1555) 

1555 FORMAT ( 1H04X ' ELEMENTS IN ROTATING COORDINATES. 
WRITE {6, 404) (Y ( I ) , 1=1 ,N) 

100 IFtCRT.EQ.O) GO TO 107 

IF (T.G£‘. rMAX.OR.TMIN.GE.TSrOP ) GO TO 1040 
PPM=0 
Pl=FDOr 
107 TSAVE=1 

DO 41 1=1, N 
41 YSAVE(I)=Y(I) 

24 IF(T.GE.TMAX) GO TO 900 
1CC=ICC+1 

C IF(ICC.LT.IO) GO TO 97 

CALL TIMEV(TSEC) 

TMIN=TSEC/60 


00861000 

00862000 

00863000 

00865000 

00866000 

00867000 

00867050 

.00867100 

00867110 

00867L20 

00867130 

00867200 

00868000 

00869000 

00870000 

00871000 

00871100 

00871200 

00871300 

00871400 

00871500 

00874000 

00875000 

00876000 

00877000 

00879000 

00880000 

00880100 

00880200 

00880300 

00881000 

00881500 

00882000 

00883000 

00884000 

00885000 

00886000 

00887000 

00887100 

00887200 

00887300 

00887400 



IF(TMIN,GE.TSTOP) GO TO 1 
ICC=0 

97 CALL RKADAMtf\!,TR,Y,DT,INDtiTIM,TOLI,IERR) 

DO 4 I=1,N 

IF(Y(I).GE,1,D14) GO TO 7 
4 COIMTINUE 

CALL TIME(TR,OT,T, ITIM) 

IF( IEKR.EQ.0)G0TQ108 
WRITE{6,311)T 

311 FOHMAT( '-UNSUCCESSFUL SOLUTION AT T =»1PD12.5) 
STOP 

108 IF(CRT.EQ,0) GO TO 110 
PM1 = INPRPM(MM)-P1>I«H 
PK2=INPRPN(MN )-H^Y(N) 

P12 = PM1’1^PH2 

IF(P12.GT.O) GO TO 110 
MM=MM+1 

IF<DA6S(PN2 ) .GT.DABS(PNl) )Gar01000 
110 DO 32 1=1, NS 

INS=I+NS 
I2NS=I+NS2 
I3NS=I+NS3 

i COSAB=DCOS(Y{ INS) ) 

SINAB = DSIN( Y( INS)') 

XNUTR=Y{ I I’J'COSAB 
YNUTR=Y( I )^SINAB 
XX( I )-=XNUTR-DELTX( I ) 

YY( I )=YNUTR-DELfY( I ) 

PHAROn)=Y( INS) 

)<00T( I )=Y(I2NS)’{^CUSAB-Y{ I )«Y( I 3NS ) >:^S I IM AB 
YDOT( I )=Y( I2NS)={^SINAB + Y( I )^=Y( I3NS)*C0SAB 
. 32 WHRVL0(I)=Y(I3NS) 

FDOT=Y{N) 

CALL BRGXY 
A1 = 0 
B1=0 

DO 317 1=1, NB 
IBI=IB( I ) 

BRGRO( IBI )=DSQRT(XB( IBI )*;«>!«2+YB( IBI )^^2) 

KP1=K( IBI )+l 

IF(BRGRO( IBI )*GT,BROB{ IBI,KP1) ) GO 10 27 
KKB=KK( IBI ) 


00887500 

00887600 

00888000 

00888100 

00888200 

00888300 

00888600 

00889000 

00890000 

00891000 

00892000 

00893000 

00895000 

00896000 

00897000 

00898000 

00899000 

00900000 

00904000 

00905000 

00906000 

00907000 

00908000 

00909000 

00910000 

00911000 

00912000 

00913000 

00914000 

00915000 

00916000 

00917000 

00922000 

00923000 

00924000 

00925000 

00926000 

00927000 

00928000 

00929000 

00930000 

00931000 



' 6^1 


2i> IF{BRGRUUBI ) .LT.BROB( IBI ,KKB) )G0T029 
26 KKB1=:KKB+1 

IFJBRGR0(IBI).LE.BR0B(IBI,KKB1))G0 TO 28 
KKB=KKB+1 


00932000 

00933000 

00934000 

00935000 


27 

200 


29 


28 

317 


102 


320 

330 


318 


Al.= Ai + l 
GO TO 26 
WRIT6(6,200) 

FORMAT(» BEARING oeFLtCTIOiM 6X0660$ BEARING CL 6 ARA 1 MC 6 ' ) 

GO TO 1 

KXB=KK8-1 

Bl = BHvl* 

GO TO 2 5 

KKnBI)=KKB 

CONTINUE 

A1B1=A1+B1 

IF(A1B1»6Q.0) GO TO 318 
ITIM =1 
T=TSAVE 
TR=T 

DO 102 1 = 1, N 
Y( I )=YSAV 6 { I ) 

MAXSHF=MAXSHF+1 
IF(MAXSHF,GE.10) GO TO 320 
G0T024 
WRITE(6t330) 

FORMAT{ lH0r4X, *THE NAXINUM NUMBER OF SHIFTING OF STIFFNESS 
IS IS TENTATIVELY LIMITED TO 10'/4X,'T0 AVOID INFINITE CYCL 
2TATI0NS DUE- TO INADEQUATE INPUT DATA**) 

GO TO 1 
IC=IC+1 
ITIM=0 

DU 43 1=1, NB 
IBI=IB(I) 

BRGROnBI )=DSQRT(XB( IBI )**2+YB( IBI)={'^ 2 ) 

PHABROUBI )=DATN2D( YB(IBI) ,XBUBI ) ) 

IF (PHABROUBI ) .LT.O) PHABROt IBI ) =360 . + PHABRO ( IBI ) 
BRGFOX=BKMX{ IBI )^MXX{ IBI )-XB{ IBI ) ) 

BRGF0Y=6KMY( IBI )»!«( YY{ IBI )-YB( IBI ) ) 

BRGFURUBI )=DSQRT{ BRGF0X*»!«2+BRGF0Y’!‘^2) 

STIFFUBI )=BRGFOR( IBI )/BRGRO( IBI ) 

BRGFOX=BRGFOX+XDUT (I BI ) *BCB ( I B I ) 

BRGF0Y=8RGF0Y+YD0T( IBI)^‘BCB( IBI ) 


00936000 
00936700 
00938000 
00939000 
00940000 
00941000 
00942000 
00943.000 
00944000 
00945000 
00947000 
00948000 
01034000 
01035000 
01035100 
01036000 
01037000 
01038000 
01039000 
01040000 
01041000 
S6CriON01042000 
IC C0MPU01043000 
01044000 
01045000 
01046000 
01047000 
01048000 
01049000 
01050000 
01051000 
01052000 
01053000 
01054000 
01055000 
01055100 
01055200 
01055300 



16 HAT rne riwie: r=iP0i3.6,2Xt 'sec- 


BRGFUR( IBI)=0SQRT |BKGF0X^':«2'f8KGF0Y*^^^2) 

PHAFURi IBI )=DArN2D(BRGFUYtBRGFUX) 

43 IFtPHAFURUBI ) .LT*0) PHAFOK ( I BI ) =360 . + PHAFOR (I B I) 

FDOT=YCN) 

REVULN=V*Y(NS4P1) 

00 45 I=ltNS 

WHIRPFMI )= H*WHRVLO( I ) 

45 WHRATUn)=WHRVLUU)/FDDT 

WHRATI ( IC)=WHRATO( lASIGN) 

RPMM- H=!^FDIJT 

RPH( IC )=RPMH 
TT(IC)=T 
WRltE(6,1001)T 
lOUl FORMAT (iHl///34X, 

WRITE (6,701) 

701 F0RMAT(1H0,4X,52HX DISPLACeMbNr ARRAY IM ^ S TA T lUNARY COORDINAfES, 

IN,) ) 

WRITE (6,404) ( XX ( I) , i=l ,NS ) 

WRITE (6,702) 

702 FORMAT(1HO,4X,52HY DISPLACEMENT ARRAY IN SrATIONARY COORD INAT.ES i 
H IN,)) 

§ WRITE (6,404) ( YY( I ) , 1=1 ,NS ) 

WRIT£(6,707) 

707 FORMAT(lHO,4X,35HROrOR DEFLECTION VECTOR ARRAY (IN,)) 

00 34 1=1, NS 
ROU)=Yn) 

PHAR0(I) = DATN2D(YY(I),XX( I) ) 

34 IF(PHAR0(I).LT,0) PHARO ( I ) =360 .+PHARO (I ) 

WRITE(6,404) ( RO ( I) , I = 1 ,NS ) • 

WRITE(6,708) 

708 F0RMAT(1H0,4X, ‘PHASE ANGLE ARRAY FOR ROTOR DEFLECTION VECTORS 
lEGREES* ) 

WRITE (6,404) (PHARO( I ), 1=1, NS) 

WRITE (6,703) 

»X VELOCITY ARRAY IN STATIONARY COORDINATES, ( IN/SE01090000 

01090L00 

(XDOT ( n , I=l,NS) 01091000 

01092000 

»Y VELOCITY ARRAY IN STATIONARY COORD INATES ,( IN/SE01093000 

01093100 

{ YDOT C I ) , 1 = 1 , NS ) 01094000 


01055400 
01056000 
01037000 
01059000 
01060000 
01061000 
01062000 
01063000 
01064000 
01065000 
01066000 
01067000 
01068000 
• )01U69000 
01070000 
( 101071000 
01072000 
01073000 
01074000 
( 101075000 
01076000 
01077000 
01078000 
01079000 
01080000 
01081000 
01082000 
01083000* 
01084000 
01085000 
- D01086000 
01UB7000 
01088000 
0X089000 


703 F0RMATUH0,4X, 
1C) * ) 

WRITE (6,404) 
WRITE (6,704) 

704 F0RMAT(1H0,4X, 
1C) * ) 

WRITE (6,404) 


WRITE (6,705) 


01093000 



705 FORMAT ( IHO , 4Xt 25HWHI RL FREQUENCY AKRAY^RPM) 

WRITE (6,404) { WHIRPM { I ) , 1= 1 ,NS ) 

WRITE (6,706) 

706 FORMAT ( IHO ,4X ,35HWHI RL TO SPIN FREQUENCY RATIO ARRAY) 

WRITE (6,404) ( WHRATO ( I ) , 1= 1 , NS ) 

WRITE16 ,1002)R£V0LN,RPMM 


01096000 

01097000 

01098000 

01099000 

01100000 

01101000 


1002 F0RMAT(///5X,26HT0TAL NO, OF REVOLUTIONS =1PD13.4/ 5X,26HSPIN SPEE01102000 
ID, RPM =1PD13.4) 01103000 

WRITE (6,457) 01104000 

4i>7 FORMAT( /1H1///5X,8HXB ARRAY, lOX, 36H6EARING DISPLACEMENT COORD INATOl 105000 


IE, IN,) 

WRITE (6,404) ( XB ( I B ( I ) ) , I = 1 , NB ) 

WRITE (6,458) 


01106000 

01107000 

01108000 


458 FORMAT (1H0,4X,8HYB ARR AY , lOX , 36HBE AR I NG DISPLACEMENT COORDINATE, 01109000 
IIN, ) 

WRITE (6,404) ( YB ( I B ( I ) ) , I = 1 ,NB ) 

WRITE (6,459) 

459 FORMAT ( IHO , 4X , 1 IHXBDGT ARRAY, 7X, 

IIN/SEC.* ) 

WRITE (6,404) ( XBDO T ( I B ( I ) ) , I = 1 ,NB ) 

^ WRITE(6,460) 

460 FORMAT ( IHO , 4X , 1 IHYBOOT ARRAY, 7X, 

IIIM/SEC, » ) 

WRITE (6,404) ( YBDOT ( I B ( I ) ) t I = 1 ,NB ) 

WRITE (6,1003) 

1003 FORMAT (//1H0,4X, IIHBRGRU ARRAY, 7X 
IBEARIiMG-CENTER ARRAY, ''IN,’) 

WRITE (6,404) (BRGRO( I B ( I ) ) , I = 1 ,NB ) 

WRITE (6,1010) 

1010 FORMAT ( 1H0,4X, 12HPHABR0 ARRAY, 7X, 


01110000 
01111000 
01112000 

•BEARING VELOCITY COORDINATE, 01113000 

01114000 

01115000 

01116000 

•BEARING VELOCITY COORDIIMAfE, 01117000 

01118000 

01119000 

01120000 

, ’JOURNAL DISPLACEMENT FROM 01121000 

01122000 

01123000 

01124000 

•JOURNAL DISPLACEMENT VECTOR 01125000 


IPHASE ANGLE COUNTER-CLOCKWISE FROM X-AXIS, DEGREES’) 01126000 

WRITE (6,404) ( PHABRO ( I B ( I ) ) , I = 1 ,NB ) 01127000 

WRITE (6,1008) 01128000 

1008 FORMAT( 1H0,4X,12HBRGF0R ARRAY , 6X , • BE AR I NG REACTION ARRAY, LB,’). 01129000 

WRITE (6,404) ( BRGFOR ( I B ( I ) ) , I = 1 ,N B ) 01130000 

WRITE (6,1009) 01131000 

1009 FORMAT (1H0,4X, 12HPHAF0R ARRAY, 6X, ’BEARING REACTION VECTOR PH01132000 

lASE ANGLE CUUNTER-CLOCKW I SE FROM X-AXIS, DEGREES’) , 01133000 

WRITE (6,404) ( PHAFOR ( I B ( I ) ) , 1= 1 , N B ) 01134000 

WRITE(6,1020) 01134100 

1020 FORMAT(1HO,4X,11HSTIFF ARRAY, 7X ’ BE AR I NG FORCE TO JOURNAL DEFL ECT 1001 134200 
IN RATIO, DR equivalent LINEAR BEAR I NG • / 24X , » S T I FFNESS , LB/ IN /BEAR 1 01 134300 



2NG* ) 

WRITE (6,404) ( ST I FF ( I B { I ) ) , I = 1 , NB ) 

IF(CRT.NE.O) GO TO 105 
IC=1 

GO TO 107 
105 UO 500 1=1, NB 
J=IB(I) 

FOKC( IC,I )=BRGFOR( J) 

500 BRGR(IC,I)=BRGRO(J) 

IF ( ACCEL. EQ,0)GOTD1000 
IF(P12.GT.O.O) GO TO 1027 
GO TO 1000 ■ 

900 IF ( CRT. EO.O. OR. ACCEL. NE.O) GOTO 1 
1000 ACCEL =1 

DO 1104 1=1, NS 

1104 ROOd ) =R0( I ) 

.C .. PLOT 1 

REAL CHARI 1 (21 ) ,CHAR21( 7) ,CHAR31 (8) ,CHARSS ( 4 ), SYMBOL/ * ^ * / 

DATA CHARll/*kOTUR 3-DIMENSIONAL MODE SHAPE WITH PHASE ANGLES 
IREES) LABELED AS SHOWN., AT RPM'= '/, CHAR21 /* KOTOR AXIAL LENGTH, 
^ 2HES‘/,CHAR31/‘R0T0R DEFLECTION VECTOR, INCHES'/ 

CALL LRLEGN(TITLE,72,0,1.'15‘,9.99,0. ) 

CALL LRLEGN( TITLE (19) ,72,0, 1.15,9.83,0. ) 

CALL LRL EGN( CHAR 11, 84,0, 1.46 3,9.67,0. ) 

CALL LRCNVT(RPMM,3,CHARS ,4,13,5) 

CALL LRL EGN(CHARSS, 13,0,8.6,9.67,0. ) 

CALL LRLEGN(CHAK21,27,0,4.31,0.,0. ) 

CALL LRCURV(Z,R00,NS,2,SYMB0L,0.) 

DO 1005 '1 = 1, NS 
RSTAR4=PHAR0( I ) 

CALL LRCNVT (RSTAR4,3,CHARSS,3,4,0) 

CALL LRLABL (CHARSS,4,0,Z( I ) ,RUO( I ) ,0. ) 

1005 CONTINUE ’ 

CALL LRLEGN(CHAR31,31, 1,0. ,4.6, 1. ) 

. IF(DABS(PM2) .LE.DABS ( PMl) ) GO TO 1027 
IF(PPM.EQ.l) GO TO 100 
PPM=1 
GO TO 110 
1027 PPM=0 
J = 1 

DO 1209 1=1, NS 
1209 IF(RO( J) .Lr.RO( I ) ) J=I 


01134310 

01134400 

01135000 

01135L00 

01135200 

01136000 

01137000 

01138000 

01139000 

01140000 

01141000 

01142000 

01143000 

01145000 

01146000 

01147000 

01147005 

01147010 

(DEG01147020 

INC01147030 

01147040 

01147050 

01147060 

01147070 

01147080 

01147090 

01147100 

01147110 

01155000 

01155010 

01155020 

01155030 

01160000 

01160010 

01161000 

01162000 

01163000 

01164000 

01165000 

01167000 

01168000 

01169000 



o o o o 


RGMAXnC) = RO(J) 

ISTATN( IC)=J 
RUSTA( IC)=RUUASIGN) 

IFdC.LT.NPOlND GO TO 100 
1040 IMPQIiMT =IC 
; PLOT 2 

CALL LRLeGN(TITLEt72,0t 1.15,9.99t0, ) 

CALL LRL6GiM( TI FLt (19) , 72 , 0 , 1 . li> , 9 .83 , 0 . ) 

REAL CHAR12(7)/'RUT0R SPIN SPEED VERSUS T IME ' / t CHAR 22 ( 4 ) / ‘ T 
ICONDS */,CHAR32(6)/*R0r0R SPIN SPEED, RPN •/ ‘ 

CALL LRCUR V(TT,RPM,NPOIlMT, 2, SYMBOL ,0. ) 

CALL LRCURV( rr ,RPM,NPOIN r,3tSYMB0L,0.) 

CALL LRLEGN( CHAR 12, 28, 0,3. 5 0,9.67,0.) 

CALL LRLEGN(CHAR22, 13,0,4.86,0.,0.) 

CALL LRLEGN(CHAR32,21, 1,0. ,4.95, 1. ) 

IF ( ACCEL. EQ.0)G0r02000 
: PLOT 3 

CALL LRLEGN( rirL6,72,0,1.15,9.99,0.) 

CALL LRLEGN( TITLE! 19) ,72,0, 1.15,9.83,0. ) 

REAL CHAR13(19)/'R0TUR WH I RL-TO-SP I N FREQUENCY RATIO VERSUS 
H ISPIN SPEED AT ROTOR STATION*/ 

CALL LRCURV(RPM,WHRAri ,NPOIN r, 2, SYMBOL, 0. ) 

CALL LRCURV(RPM,WHRATI ,NPOINT, 3,SYMB0_L,0. ) 

CALL LRCNVr ( IASI GiM,l,CHARSS, 1,3,0) 

CALL LRLEG)M(CHARSS,3,0,7.85,9.67,0. ) 

CALL LRLEGN( CHAR 13, 76,0, 1.795,9.67,0.) 

CALL LRLEGN{CHAR13,35,1,0.,3.47,0. ) 

CALL LRLEGN(CHAR32, 2 1,0,4.55,0.,!.) 

PLOT 4 

PLOT RPM yS FURC FUNCTIONS 
CALL PLOT'kFORC) 

CALL LRL £GN(TITLE,72,0, 1.15,9. 99,0. ) 

CALL LRLEGN( TITLE ( 1 9 ) , 72 , 0, 1 . 15 , 9. 83 , 0 . ) 

REAL CHAR14(24)/'BEARING REACTIONS VERSUS ROTOR SPIN SPEED 
lARING LOCATION STATION NUMBERS LABELED AS SHOWN • / , CHAR24 ( 7 ) 
2NG REACTIONS, POUNDS »/ 

CALL LRLEGN(CHAR14,96,0, 1.385, 9.67,0.) 

CALL LRLEGN(CHAR32,21,0,4.55,0.,0.) 

CALL LRLEGN(CHAR24,25,1,0.,4.37,1.) 

PLOT 5 

PLOT RPM VS BRGR FUNCTIONS 
call PLOTKBRGR) 


01170000 
01171000 
01171500 
01171600 
01172000 
01173000 
01173500 
01174000 
IME, SE01174500 
01175000 
01175500 
01176000 
01176500 
01177000 
01177100 
01177200 
01177400 
01177500 
01178000 
KUTOR 01178500 
01179000 
01179500 
01180000 
01181000 
01181500 
01182000 
01182500 
01183000 
01184000 
01185000 
01186000 
01186100 
01186200 
WITH BE01186300 
/' BEARI0H86400 
01186500 
01186600 
01186700 
01186800 
01192000 
01193000 
01194000 



CALL LRLEGN{ TITLE, 72, Ot !• 15,9.99,0. ) 01194100 

CALL LRLEGN{ title (19), 72, 0,1. 15, 9. 83,0.) 01194200 

REAL CHAR15(25)/' JOURNAL DISPLACEMENT V.ERSUS ROTOR SPIN SPEED WITH01194300 
1 BEARING LUCATION STATION NUMBERS LABELED AS SHOWN ' / , CH AR25 ( 8 ) / 01194400 

2'JOURNAL DISPLACEMENTS, INCHES •/ 01194500 

CALL LRL EGN( CHAR 15 ,99,0, 1,21 ,9.67,0. ) 01194600 

CALL LRLEGN(CHAR32,21,0,4.55,0.,0. ) 01194700 

CALL LRL EGN(CHAR25, 29, 1,0. ,4.52,1.) 01194800 

PLOT 6 . 01200000 

CALL , L'RANGE( 0. ,0. ,0.,0. ) 01200005 

REAL CHARI6(13)/'MAXIMUM ROTOR DEFLECTIONS VERSUS ROTOR SPIN SPEED01201000 
1 ' / ,CHAR26 ( 22 ) / ' ( THE STATION NUMBERS WHERE THE MAXIMUM DEFLECT 1001202000 

2NS OCCUR ARE SHOWN) ' / , CHAR36 ( 9) / * MAX IMUM ROTOR DEFLECTIONS, INCHE01203000 


3S '/ 

CALL LRCURV(R.PM,R0MAX,NPOINT,2,SYMB0L,0.-) 
DO 1006 I=1,NP0INT 

CALL LRCNVT( ISTATN(I) , 1 , CHARSS , 1 ,3 , 0 ) 

10.06 CALL LRLABL(CHARSS,3,0,RPM( I ) ,ROMAX( I ) ,0. ) 
CALL LRL EGN( TITLE, 72, 0,1. 15, 9. 99,0.) 

CALL LRLEGN(TITLE-( 19) , 72 , 0 , 1.. 15 , 9 .8 73 , 0. ) 
^ CALL LRL EGN( CHAR 16, 49, 0,3. 45, 9. 756,0. ) 

CALL LRLEGN(CHAR26,67,0,2.75,9.639,0. ) 

CALL LRLEGN{CHAR32,21,0,4.55,0.,0. ) 

CALL LRLEGN(CHAR36,33, L,0.,4.52, 1.) 

: PLOT 7 


01204000 

01205000 

01206000 

01207000 

01208000 

01209000 

01210000 

01211000 

01212000 

01213000 

01214000 

01214010 


REAL CHAR17(17)/' (THE STATION NUMBER WHERE THE ROTOR DEFLECTIONS 001214020 


ICCUR IS SHOWN) * / 

CALL URCURV(RPM,ROSrA,NPUINT, 2, SYMBOL, 0. ) 

DO 1007 I=1,NP0INT 

CALL LRCNVr ( I ASIGN, 1,CHARSS, 1,3,0) 

1007 CALL LRLABL (CHARSS,3,0,RPM( I ) ,ROSTA( I ) ,0. ) 
CALL LRL EGN(TITLE, 72,0, 1.15,9.99,0.) 

CALL LRLEGN(TITLE( 19) ,72,0,1.15,9.873,0. ) 
CALL LRLEGN(CHAR16(3) ,41 , 0 , 3 .45 , 9 .756 , 0. ) 
CALL LRLEGN(CHAR17,63,0, 2.75,9.639,0. ) 

CALL LRLEGN(CHAR32,21,0,4.55 ,0.,0.) 

CALL LRLEGN(CHAR36(3),25,1,0.,4.25,1.) ' 
2000 IC=0 

IF(T.GE.TMAX.OR.TMIN.GE.TSTOP) GO TO 1 
GOTOlOO 
END 


01214030 

01214040 

01214050 

01214060 

01214070 

01214080 

01214090 

01214100 

01214110 

01214120 

01214130 

01215000 

01215100 

01216000 

01217000 


CaxHl Coimt ltl9 



SUBROUTINE READIN 
IMPLICIT REALMS (A-H,0-Z) 
INTEGER CRT, ACCEL, CONTIN 
REAL TITLE, INPRPM, RPM 


01218000 

01219000 

01220000 

01221000 


DIMENSION DD{25) ,D(25) ,QL(25) ,0N|25) ,EE(25) ,GG(25) ,AM(25) ,AIDI 2501222000 
1) ,AIR0(25) ,ECC(25) ,ALFA(25) ,BETA( 25 ) ,GAMMA ( 25 ) , £1(25) ,GAK( 25) 01223000 

2, TITLE (36) , I NPRPM { 50 ) , RPM ( 50 ) 01224000 

DIMENSION CZ(25) ,CZ1(25) ,CZ2(25) 01225000 

DIMENSION XKF(25) ,XCF(25) ,XKFF(25) ,XCFF(25) 01226000 

DIMENSION QK(25) ,0C(25) ,0KP(25) ,QCP ( 25 ) , OKHD( 25) , QCHD ( 25 ), OKF ( 2501227000 
1) ,QCF(25) ,QKPF(25) ,0CPF(25) , QKHDF ( 25 ) , QCHDF ( 25 ) 01228000 

2,IB(12) ,K(25) 01229000 

3, BKMX(25) ,BKMY(2 5) ,BCMX(25) ,BCMY(25) , BCB(25 ) , 01230000 

4 BNB ( 25,6 ) ,BBB( 25,6) ,BROB( 25,7) , BKB ( 25 ,6 ) , BHB ( 25 , 6 ) , BOB ( 25 , 6 ) , 01231000 

5BEB(25,6), Y(102) 01232000 

COMMON/MAREAD/ T I TLE , INPRPM , F,OT,TMAX, TMZ,TMZ1 ,TMZ2,TMZ301234000 

1, TOLI, NOORPM, lASIGN, CRT, ACCEL 01235000 


■ /SFP1/RPM,NP0INT, ICOND,CONTIN 
COMMON/MAFC/ EE,GG, EI,GAK 
C0MM0N/MAFUF1/DD,D,QL, NS,NB,IB 
C0MM0N/MAFU14/ FDOFIX 
COMMON/MAFUl/ TSTOP,K 

C0MM0N/MAFU2/ DN , AM , A I D , A I RO, ECC , ALFA , BET A, GAMMA , GX , GY 
/MAFU3/WHIVEL 

COMMON/MAFU4/ CZ,CZ1,CZ2, XKF , XCF , XKFF , XCFF 


01236000 

01237000 

01238000 

01238500 

01239000 

01240000 

01241000 

01242000 


C0MM0N/MAFU5/ QK , QC ,QKP , QCP ,QKHO,OCHO ,QKF , OCF , QKPF , OCPF , OKHDF , OCOl 243000 
IHDF, BKMX,BKMY,BCMX, BCMY,BCS 01244000 

C0MM0N/MAFU6/ BNB,BBB^BROB,BKB,BHB ,BDB,BEB 01245000 

C0MM0N/MAFU8/ TOLB • 01246000 

1 /MAFU13/Y 01247000 

COMMON/MAFUl 1/FD, FOOT 01248000 

1 /SFP2/NSM1,NSM2,NSM3,NSP1,NS2,NS3,NS4,NS4P1,NS4P2,NS2P1 01248100 

NAMELIST/OATAl/NS, TMAX, T STOP , DO , QL , NB , I B , K , ICOND , CONT I N , FOOT , W01249000 

IHIVEL 01249100 

NAME LI ST/DAT A2/ T , FD , DT , FDOF I X , 01250000 

1 I AS I GN, NOORPM, NPO I NT, CRT, ACCEL, INPRPM, TOLI, TOLB, GX, 01 25 1000 

1GY,TMZ,TMZ1,TMZ2,TMZ3, D,DN,EE,GG, E I , GAK , AM , A I D , A I RO , ECC , ALFA01252000 

2, BETA ,GAMMA,CZ,CZ1,CZ2, XKF, XCF, XKFF, XCFF, QK,QC,0KP, QCP, QKH0,0CH0,Q01 253000 
3KF,QCF, QKPF, OCPF, QKHDF, OCHDF, BKMX , BKMY , BCMX, BCMY, BCB, BNB , BBB , BRO0l254OOO 
4B,BK6,BHB,B0B,BEB 01255000 

READ (5,5) TITLE 01257000 

5 F0RMAT(18A4) 01258000 



■ 156 


READ<5,DATA1) 

IF(NS.LT.5) GO TO 12 
GO TO 11 
12 WRITE (6,377) 

377 FORMAT(///],HO, lOX, 47HMINIMUM ALLOWABLE 
IS 5) 

CALL EXIT' 

11 FD==0 

IASIGN=1 
NOORPM=l 
NPUINT=25 
CRT=0 
ACCEL=0 
INPRPM(1)=0 
• T=0 

0T=:,00O01 
T0LI=.01 ■ 

, T0LB=.001 
GX = 0 
GY = 0 
TMZ=0 
TMZ1=0 
TMZ2=0 
TMZ3=0 
(MSMi=NS-l 
NSM2=NS-“2 
NSM3=NS“3 
NSP1=NS+1 
NS2=2^NS 
„ NS3=3»NS 
NS4=4«NS 
NS4P1=NS4+1 
NS4P2=NS442 
NS2P1=NS2+1 
DO 14 I=1,NSM1 
D( I )=0 
• DN( I )=.283 
EE( I )=3*D7 
GG( I )=1,15D7 
El (I )=0 
14 GAK(n=:0 

DO 16 1=1, NS 


01259000 

01261000 

01262000 

01263000 

OF ROTOR STATIONS 101264000 
. 01265000 
01266000 
01266500 
•01267000 
01268000 
01269000 
01270000 
01271000 
01272000 
01273000 
01273500 
01274000 
01275000 
01276000 
01277000 
01278000 
01279000 
01280000 
01281000 
01281200 
01281400 
01281600 
01281800 
01282000 
01282200 
01282400 
01282600 
01282800 
01283000 
01283200 
01284000 
01285000 
01286.000 
01287000 
01288000 
01289000 
01290000 
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AMU) = 1.D-16 
Aion )=0 
AIRO(I)=l,D-16 
ECCU )=1*0-16 
ALFA(I)=0 
^ETA(I )=0 
GAMMA( n=0 
CZ(I)=0 
CZUI)=0 
CZ2(I )=0 
XKF(1)=0 
. XCFd 
XKFFd )=0 
XCFF( I )=0 
QKd)=0 ^ 

QC( I )=0 
OKP( I)=0 
QCPU)=0 
OKHDd )=0 
QCHO{ I )=0. 
QKFU)=0 
QCFd )=0 
QKPFd )=0 
QCPFd)=0 
QKHDFd )=0 
L6 QCHDFd)=0 

DO 20 N1=1,NB 

BK.MXd)=l.D10 
BKMYd) = l*D10 
BCMXd )=1.D-16 
BCMY,d) = l.D-16 
20 BCBd)= l.D-16 
FDOFIX^O 
DO 21 ,N1 = 1.,NB 
I=IB(N1) 

KI=Kd) 

,D0 21 J=1,KI 
BNBd,J)=0 
3BBdtJ)=0 
JKBd.tJ).= l.D^ 


01291000 

01292000 

01293000 

01294000 

01295000 

01296000 

01297000 

01298000 

01299000 

01300000 

01301000 

01302000 

01303000 

01304000 

01305000 

01306000 

01307000 

01308000 

01309000 

01310000 

01311000 

01312000 

01313000 

01314000 

01315000 

01316000 

01317000 

01318000 

01319000 

01321000 

01322000 

01323000 

01-324000 

013'25000 

01325500 

01326000 

01327000- 

01328000 

01329000 

01330000 

01331000 

01332000 



80BnrJ}=0 
21 seBn,j)=o 


OU 22 N1=1,N8 
i=IB(Nl) 

22 BRGBUfl) = *005 
15 F0RMAT(6E12,8) 
REAOt5,DATA2) 
DT=2.*DT 


DO 24 Nl=ltNB 

I=IB(N1) 

KI=K(I) 

DO 24 J-lrKI 
JP1=J+1 


24 BROB<I,JPl)=BRDBUtvi) 
DO 26 Nl=ltN8 
I«IB<N1) 

26 BR0B(i,l)=0 

DDtHS)=l, 

D{NS)= 0. ■ 

0UNS) = 1, 

DN(NS)=0, 

^ 6E(NS)=1, 

GG(NS)=1. 

EI(NS)=0. 

GAK (NS)=0. 


IFCCONTIN.EO.O} 
READ(5,410) (Y(I 
410 F0RMAT{3D22*15) 
17 00 10 1=1, NS 
IF(EKI),NE.O) 
IF(GAKil).Ne.O) 
10 CONTINUE 
RETURN 
END 


GO TO 17 
)tI=l,NS4P2) 


6EU )=0 
GGU)=0 


01333000 

01334000 

01335000 

01336000 

01337000 

01340000 

01341000 

01342000 

01343000 

01343100 

01343200 

01343300 

01343400 

01343500 

01343600 

01343700 

01343800 

01343900 

01344000 

01345000 

01346000 

01347000 

01348000 

01349000 

01350000 

01351000 

01352000 

01355000 

01356000 

01356100 

01356200 

01356300 

01356400 

01367000 

01368000 


Card Connt l6l 



SUBROUTINE WRIOUT 01570000 

IMPLICIT REAL'i^S (A-HtO-Z) 01571000 

INTEGER CRT, ACCEL, CONTIN 01572000 

REAL TITLE, INPRPM,RPM 01573000 

DIMENSION DD (25) ,D(25 ) ,QL ( 25) ,DN ( 25) ,EE (25) ,GG( 25) ,AM{ 25) , A ID ( 2501575000 
1) ,AIR0(25) ,ECC(25) ,ALFA(25) , BETA ( 25 ), GAMMA ( 25 ) , £I (25) ,GAK( 25) 01576000 

'2,TITLE(36) 

DIMENSION CZ.(25),CZ1(25),CZ2(25) 

DIMENSION XKF(25) ,XCF(25) ,XKFF(25) tXCFF(25) 


01577000 

01578000 

01579000 


DIMENSION QK(25),QC(25) ,QKP( 25) ,QCP( 25), OKHD( 25) ,OCHO( 25) ,OKF( 2501580000 
1) ,QCF(25) ,0KPF(25) ,QCPF(25) , OKHDF ( 25 ) , QCHDF ( 25 ) 

2,IB(12) ,K(25) 

3, BKMX(25) ,BKMY(25) ,BCMX(25) ,BCMY(25) ,BCB(25) 

4, BNB (25,6) ,BBB( 25,6) ,BR0B(25,7) , BKB ( 25 ,6 ) , BHB I 25 , 6 ) , BDB( 25 , 6 ) , 

5BEB( 25,6) , RPM(50) , INPRPM(50) 

COMMON/MAREAD/ T I TL6 , IiMPRPM, T,DT,FMAX, TMZ, fMZ 1 , TMZ2 ♦ rMZ301587000 

01588000 


01581000 

01582000 

01583000 

01584000 

01585000 


It 


TOLI, NOURPM, 


lASIGN, CRT, ACCEL 


COMMON/MAFC/ E£,GG, EI,GAK 
C0MM0N/MAFUF1/DD,D,0L, NS,NB, I B 
C0MM0N/MAFU14/ FDOFIX 
COMMON/MAFUl/ TSTOP,K 

C0MMUN/MAFU2/ DN , AM , AI D , A IRQ , ECC , ALFA , BETA , GAMMA , GX , GY 
/MAFU3/WHIVEL 

C0MM0N/MAFU4/ CZ,CZ1,CZ2, XKF , XCF , XKFF , XCFF 


01589000 

01590000 

01590500 

01591000 

01592000 

01593000 

01594000 


C0MM0N/MAFU5/ OK , QC , QKP , QCP , QKHD ,QCHO , OKF , OCF , QKP F , OC PF , OKHDF , 0C01595000 


IHDF, BKMX,BKMY,BCMX,BCMY,BCB 

C0MM0N/MAFU6/ BNB , BBB ,^BROB , BKB , BHB, BDB , BEB 
C0MM0IM/MAFU8/ TOLB 
• COMMON/MAFU11/FD,FDOT 
X /MAFU13/Y(102) 

X /SFP1/RPM,NP0INT, ICOND,CONTIN 

1 /SFP2/N1,NSM2,NSM3,NSP1,NS2,NS3,NS4, IDUMK 3) 

2 /GARBG3/IC0,M,KI1,KI, I 
WRITE(6,471) 

WRITE(6,400) TITLE 

399 FORMAT(IOIIO) 

400 FORMAT ( IHO/ (20X,18A4)) 

404 FORMAT ( 7X , 1P6E 13 .4 ) 

490 FORMAT ( 14X , 1 P6E 13 • 4 ) 

WRITE (6,401) NS, lASIGN, NOORPM, NPOINT, CRT, ACCEL 

401 FORMAT (IHO/, 4X,8HNS =^I3,14X, 

ILOWABLE RANGE:5=<NS=<25) */4X, 


01596000 
01597000 
01598000 
01601000 
01601100 
01602000 
01602100 
01602200 
01602300 
01603000 
01604000 
01605000 
01606000 
01607000 
01608000 

•NUMBER OF ROTOR STATIONS (AL01609000 


01610000 



18HIASIGN =I3,14X, 70HA ROTOR STATION NUMBER AT WHICH THE WHI RL /SP016 1 1 000 
2IN FREQUENCY RATIO WILL BE /34X t » PLOT TEL) ON CR T * /4X t 8HN00RPM = I 3., 1401612000 
3X,*THE NUMBER OF SPIN SPEEDS IN RPM AT OR NEAR WHICH 3-D I MENS I ON AL016 13000 

1 ABSOLUTE ROTOR* /34X'M0D£ SHAPE CRT GRAPHS ARE REQUIRED, THE SPI01614000 

2N SPEED RPM VALUES ARE L I STED ' /34X » UNDER INPRPM ARR AY /34X ALL0016 15000 
2WABLE RANGE: 0=<N00RPM=<50 ) » / 4X t 8HNP0 INOl 6 16000 

3T =13, 01617000 

614X,»THE NUMBER OF POINTS (UNE PER EACH INTEGRATION STEP) FOR EACH0161B000 
■7 CRT GRAPH. ' /34X, *( ALLOWABLE RANGE: 1 = <NP0I NT = <50 ) * / 01619000 

8 4X,8HCRT = 1 3 , 14X , 3 1HCRT = 0 MEANS CRT IS NOT REOU I RE01620000 

8D/29X, 27HCRT=1 MEANS CRT IS REQU I RED/4X, 8HACCEL - = 13, 14X, ’ ACCEL = 01621000 

90 MEANS A 3 -D I MENS I ON AL ROTOR MODE SHAPE CRT CORRESPONDING TO THAT01622000 

9 AT»/34X, ‘BEGINNING OF THE RUN WILL BE PROVIDED IF CONCURRENTLY C01623000 

9RT=1.*/29X, * ACCEL=1 MEANS ONLY THE TR ANS I ENT-SPEED ROTOR MODE SHAP01624000 
9ES AT OR NEAR I NPRPM ' /34X , ‘ VALUES WILL BE PROVIDED IF CUNCURRENTLY01625000 
9 CRT=1.‘ } 01625100 

WRITE (6,453) 01626000 

453 FORMATdHO, 3X,12HINPRPM ARRAY, 13X,‘THE ROTOR SPIN SPEED RPM VAL01627000 

lUES AT OR NEAR WHICH CRT GRAPHS FOR ' /29X, 53H3-DIMENS lONAL ABS0LUTE01628000 

2 ROTOR MODE SHAPES ARE REQUIRED) 01629000 

^ WRITE (6,404) ( I NPRPM ( I ) , 1= 1 , NOORPM ) 01630000 

g DT=DT/2. 01630500 

WRITE (6,402) T, DT, TMAX, TOLI, TOLB,TSTOP 01631000 

402 FORMAT ( 1H0/,4X,8HT =1PD13.4,4X, 23HINITIAL REAL TIME, SECU1632000 

li/4X,8HDT =lPD13.4,4X'EStlMATED INITIAL * 01633000 

2 ‘INTEGRATION STEP (REAL) TIME, SEC . * /4X8H01634000 

• 2TMAX =1PD13.4,4X,31HT0TAL REAL TIME TO BE RUN, SEC . /4X, 8HT0L I 01635000 
3=1P013.4,4X, 31HINTEGRATI0N TOLERANCE, FRACT I 0N/4X , 8HT0LB = IPD 1301636000 

4.4,4X,54HT0LERANCE IN COMPUTING BEARING DISPLACEMENTS, FRACT I UN/4X01637000 
5,8HTST0P =1PD13.4,4X, ‘THE COMPUTER TIME ALLOWED FOR EACH SET OF D01637100 
■5ATA, MINUTES. ‘) 01637200 

WRITE (6,403) GX , GY, TMZ, TMZl, rMZ2, TMZ3 01638000 

403 FORMAT ( IHO/ , 4X , 8HGX- =1PD13.4,4X, 46HGRAVITY OR G-LOADING 101639000 

IN X DIRECTION, IN/SEC«^2/4X,8HGY =1PD13.4, 4X, 46HGRAVITY OR 01640000 

2G-L0ADING IN Y DIRECTION, I N/SEC^^«2/4X , 8HTMZ =1PD13.4,4X, 47H01641000 

3EXP0NENT FOR SPEED SENSITIVE ROTOR DRIVE rORQU£/4X,8HTMZl = IPO 1301642000 
4‘.4,4X, 34HC0EFFICIENT FOR ROTOR DR I VE ' TORQUE /4X , 8HTMZ2 = IPD 13 .401643000 

-5,4X, 52HCOEFFICIENT FOR ROTOR DRIVE TORQUE, ( I N-LB-SEC ) /RAD . /4X01644000 
6,8HTMZ3 =1PD13.4,4X, 43HC0EFF I C I ENT FOR ROTOR DRIVE T0RQU01645000 

7E, IN-LB ) 01646000 

WRITE (6,405) ' 01647000 

405 FORMAT (IHl/ 5X,‘DD ARRAY *, lOX ,» OUTSIDE DIAMETERS OF ROTOR SECT 1 001648000 



INS BETWEEN ADJACENT KOTOR STATIONS, IN.') 01649000 

WRITE (6,490) ( OD (I ) , I = 1 , N 1 ) 01651000 

WRITE (6,406) 01652000 

406 ‘FORMAT (1H0,4X,»D ARRAY', IIX, 'INSIDE DIAMETERS OF ROTOR SECT 1 0N01653000 

IS BETWEEN ADJACENT ROTOR STATIONS, IN,') 01654000 

WRITE (6,490) ( 0 ( I ) , I = 1 ,N 1 ) 01655000 

WRITE (6,407) 01656000 

407 FORMAT (1H0,4X,'0L ARRAY', lOX, 'ROTOR SECTION LENGTHS BETWEEN ADJ01657000 

lACENT ROTOR STATIONS, IN.') 01658000 

WRITE (6,490) ( OL ( I ) , I = 1 ,N 1 ) 01659000 

WRITE (6,4aS) 01660000 

'408 FORMAT (1H0,4X,'DN ARRAY ', lOX ,» MATERI AL DENSITIES OF ROTOR SECT 1 0N0166 1000 
IS BETWEEN ADJACENT STATIONS, LB/IN^*3») 01662000 

WRITE (6,490*) ( DN ( I ) , I 1 , N 1 ) 01663000 

WRITE (6,409) 01664000 

409 FORMAT (1H0,4X,'££ ARRAY', lOX, 'YOUNGS MODULI OF ROTOR SECTIONS 01665000 

IBETWEEN ADJACENT STATIONS, LB/IN*’!'2») ' 01666000 

'WRITE (6,490) ( EE ( I ) , I =1 ,N 1 ) 01667000 

WRITE (6,410) 01668000 

410 FORMAT (1H0,4X,'GG ARRAY', lOX, 'SHEAR MODULI OF KOTOR SECTIONS B01669000 

H lETWEEN ADJACENT STATIONS, LB/IN**2') 01670000 

P WRITE (6,490) ( GG ( I ) , I =1 ,N 1 ) 01671000 

WRITE (6,418) ' 01672000 

418 FORMAT (1H0,4X,'£I ARRAY', 9X, 'DIRECT INPUT OF THE PRODUCTS OF Y001673000 

lUNGS MODULI AND AREA MOMENTS OF INERTIA OF ROTOR » /23X, ' SECT IONS BE01674000 
2TWEEN ADJACENT STATIONS, LB-IN**2») 01675000 

WRITE (6,490) ( E I ( I ) , I = 1 , N 1 ) 01676000 

WRITE (6',419) 01677000 

419 FORMAT (1H0,4X,'GAK ARRAY', 9X, 'DIRECT INPOT OF THE PRODUCTS OF SH01678000 

lEAR MODULI, CROSS-SECTIONAL ARE AS » / 23X » AND RECIPROCALS OF SHEAR ST01679000 
2RESS CONCENTRATION FACTORS BETWEEN ADJACENT STATIONS, LB.') 01680000 


WRITE (6,490) ( GAK ( I ) , I = 1 ,N 1 ) 
WRITE (6,411) 


01681000 

01682000 


411 FORMATdHO, 4X • AM ARRAY', lOX, 'ADDITIONAL ROTOR MASSES AT ROTOR 01683000 


ISTATIONS, (LB-SEC**2-)/IN.» ) 

WRITE (6,404) ( AMI I ) , I = 1 , NS ) 

WRITE (6,412) 

412 FORMAT (1H0,4X,'AID ARRAY', 9X, 

IMOMENTS OF INERTIA AT ROTOR STATIONS, ( LB-IN-SEC»*2 ) ' ) 
WRITE (6,404) ( AI D ( I ) , I = 1 ,NS ) 

WRITE (6,413) 


01684000 
01685000 
01686000 

ADOiriONAL ROTOR TRANSVERSE MASS 01687000 

01688000 
01689000 
01.690000 


413 FORMAT ( IHO , 4X , » A IRO ARRAY*, 8X, 'ADDITIONAL ROTOR POLAR MASS MOMEN0169 1000 



ITS OF INERTIA AT ROTOR STATIONS, ( LB-IN~SEC^'*2 ) ' ) 
WRITE (6,404) ’( AIRO( I > , I«1 ,NS ) 

WRITE (6,414) 

414 FORMAT (1H0,4X,'£CC ARRAY*, 9X, 

IR STATIONS, I’N* * ) 

' WR‘lfE"'(6,404) (ECC( I ) , 1 = 1, NS) 

WRITE (6,415) 

415 FORMAT ( IHO , 4X , * ALF A ARRAY*, 8 X, 


01692000 
01693000 
01694000 

*ROTOR MASS ECCENTRICITIES AT R0T001695000 

01696000 

01697000 

01698000 

*PHAS£ ANGLES FOR ROTOR MASS ECCEN01699000 


ITRICITY VECTORS AT ROTOR STATIONS MEASURED FROM THE * /23X, * I N I T I AL 01700000 


2R0T0R SPIN ANGULAR POSITION, DEGREES*) 

WRITE (6,404) ( AL FA ( I ) , 1= 1 , NS ) 

■’"write’ (6,416T 

416 FORMAT ( IHO// , 5X, lOHBETA ARRAY, 8 X,' 

lETWEEN THE AXES OF THE MASS MOMENTS OF I NERT I A * /23X, 
2STIC AXES AT ROTOR STATIONS, DEGREES*) 

WRITE (6,404) ( BETA( I ) , 1=1 ,NS ) 

WRITE (6,417) 


01701000 

01702000 

01703000 

‘INITIAL MISALIGNMENTS B01704000 
AND THE ELA01705000 
01706000 
01707000 
01708000 


417 FORMAT ( IHO ,4X ,* GAMMA ARR AY », 7X ,» ANGULAR POSITIONS OF THE X-Y PLAN01709000 


IE PROJECTIONS 


01710000 


1 


*0F THE AXES OF MASS MOMENTS OF ' /23X, » I NERT I A AT ROTOR 01711000 


5 ; 2STATI0NS- MEASURED FROM THAT AT THE FIRST ROTOR STATION, DEGREES') 01712000 
^ WRITE (6,404) ( G AMM A ( I ) , 1= 1 , NS ) 01713000 

WRITE (6,422) 01714000 

422 "FORMAT ('lH0,4X,*CZ ARRAY*, lOX , * TORSON AL FRICTION EXPONENTS AT K0T01715000 


lOR STATIONS, DIMENSIONLESS*) 
WRITE (6,404) ( CZ ( I ) , I = 1 ,NS ) 

WRITE (6,423) 

423 FORMAT (1H0,4X,*CZ1 ARRAY*, 9X, 


01716000 
01717000 
01718000 

‘TORSIONAL FRICTION COEFFICIENTS AT01719000 


1 ROTOR STATIONS, DIMENSION OF CZ 1 ( I ) ^^FDOT^^CZ ( I ) * /23X, ' I S IN-LB, ') 01720000 
■'■WRi'TE'"('6,464’) (CZK I) ,I = 1,NS) 01721000 

WRITE (6,424) 01722000 

424 FORMAT (1H0,4X,*CZ2 ARRAY*, 9X, 'TORSIONAL FRICTION COEFFICIENTS AT01723000 
1 ROTOR STATIONS, ( IN-LB-SE'C ) /RAD, ' ) 01724000 

WRITE (6,404) ( CZ2 ( I ) , I = 1 ,NS ) 01725000 

WRITE (6,425) ' 01726000 

4'2’5"FQRMAT( IHO, 4X,9HXKF ARRAY, 9X, * WH I RL-FREOUENC Y FACTORS FOR ST I FF01727000 
INESS FORCE COEFFICIENTS AT ROTOR STATIONS, * /23X, 'DIMENSIONLESS') 01728000 
WRITE (6,‘404) (XKF(I),I = 1,NS) 01729000 

WRITE (6,426) 01730000 

426 FORMAT ( 1H0,4X ,9HXCF ARRAY, 9X, * WH I RL-FREOUENCY FACTORS FOR DAMP 1 0173 1000 
ING FORCE COEFFICIENTS AT ROTOR STATIONS,*/ 23X, 'DIMENSIONLESS') 01732000 
WRITE (6,404) ( XC F ( I ) , I = 1 ,NS )• 01733000 



WRITE- (6,427) 01734000 

427 FORMAT ( IHO ,4X , lOHXKFF ARR AY , 8X , • WH I KL-FRtOUENCY FACTORS FOR ST I FF01735000 
INESS MOMENT COEFFICIENTS AT KOTOR STAT lONSt * /23Xt ' D IMENS lONLESS ' ) 01736000 

WRITE (6,404) ( XKFF ( I ) , I = 1 ,NS ) 01737000 

WRITE 16,428) 01738000 

428 FORMAT ( IHO , 4X , lOHXCFF ARR AY , 8X , ' WH I KL-FREOUENCY FACTORS FOR DAMP 1 01739000 
ING MOMENT COEFFICIENTS AT ROTOR STATIONS,' /23X, • D I MENS I ONLE SS ' ) 01740000 

WRITE (6,404) ( XC FF ( I ) , I = 1 , NS ) -01741000 

01742000 

4X,*0K ARRAY* rlOX,' IN-PHASE STIFFNESS FORCE COEFF I C 1 01743000 
lENTS AT ROTOR STATIONS, LB/IN.') 01744000 

WRITE (6,404) ( OK ( I ) , I = 1 ,NS ) 01745000 

WRITE (6,430) ^01746000 

430 FORMAT (1H0,4X,8HQC ARRAY, lOX, 'IN-PHASE DAMPING FORCE COEFFIC IEN0i7'47000 

01748000 
01749000 
01750000 


WRITE (6,429) 
429 FORMAT (IHO, 


ITS AT ROTOR STATIONS, ( L B-SEC ) / I N . ' ) 
WRITE (6,404) ( OC ( I ) , I = 1 , N S ) 

WRITE (6,431) 


431 FORMAT ( IHO , 4X , 9HQKP ARRAY, 9X , • OUT-OF-PHASE . ST I FFNE SS FORCE COEF01751OOO 


IFICIENTS AT ROTOR -STATIONS, LB/IN*') 
WRITE (6,404) ( OKP ( I ) , I =: 1 , NS ) 

WRITE (6,432) 


01752000 

01753000 

01754000 


432 FORMAT ( IHO , 4X , 9HQCP ARRAY, 9X , * OUT-UF-PHASE DAMPING FORCE COEFF 101755000 


01756000 

01757000 

01758000 


01761000 

01762000 

01763000 


ICIENTS AT ROTOR STATIONS, ( LB-SEC ) /IN. ' ) 

WRITE (6,404)- (QCP( I) ,I = 1,NS) 

WRITE (6,433) 

433 FORMAT ( IHO , 4X , lOHQKHD ARRAY , 8X ,' OUT-OF-PHASE WHIRL AND SPIN Vt L0C01759000 
IITY SENSITIVE STIFFNESS FORCE COEFFICIENTS AT ROTOR » /23X, * ST AT IONS01760000 
l,(LB-SEC)/( IN-RAD) ' ) 

WRITE (6,404) ( QKHD ( I ) , I = 1 , NS ) 

WRITE (6,434) 

434 FORMAT ( IHO, 4X-, lOHQCHO ARRAY , 8X ,* OUT-OF-PHASE WHIRL AND SPIN VEL0C01764000 

IITY SENSITIVE DAMPING FORCE COEFFICIENTS AT ROTOR ' /23X ,' ST AT IONS ,( 01765000 
2LB-SEC^*2)/(IN-RAO)* ) 01766000 

WRITE (6,404) ( QCHD ( I ) , I = 1 ,NS ) 01767000 

WRITE (6,435) 01768000 

435 FORMAT ( IHO , 4X , 9HQKF ARRAY, 9X, 'IN-PHASE STIFFNESS MOMENT COEFF ICOl 769000 

IIENTS AT ROTOR STATIONS, IN-LB.') ' 01770000 

WRITE (6,404) ( OK F ( I ) , I = 1 ,NS ) 01771000 

WRITE (6,436) 01772000 

436 FORMAT ( IHO , 4X , 9H0CF ARRAY, 9X, 'IN-PHASE DAMPING MOMENT COE FF I C I EOl 773000 

INTS AT ROTOR STATIONS, IN-LB-SEC.*) 01774000 

WRITE (6,404) ( OC F ( I ) , I = 1 , NS ) 01775000 



WRITE (6t437) 01776000 

437 FORMAT UHO t4X , lOHQKPF ARRAY t BX OUT-OF-PHASE STIFFNESS MOMENT COE01777000 

IFFICIENTS AT ROTOR STATIONS, IN-LB* •) 01778000 

WRITE (6,404) ( QKPF (I ) , I = 1 ,NS ) 01779000 

WRITE (6,438) 01780000 

438 FORMAT ( IHO , 4X , lOHQCPF ARRAY , 8X ,» OUT-OF-PHASE DAMPING MOMENT COEFF01781000 

IICIENTS AT ROTOR STATIONS, IN-LB-SEC.*) 01782000 

WRITE (6,404) (OCPF ( I ) , 1 = 1 ,NS ) 01783000 

WRITE (6,439) 01784000 

439 FORMAT ( IHO ,4X , » QKHDF ARRAY », 7X ,* OUT-OF-PHASE WHIRL AND SPIN VELOC01785000 

IITY SENSITIVE STIFFNESS MOMENT COEFFICIENTS AT*/23X, *ROTOR ST AT 1 0 1786000 
20NS, ( LB-I N-SEC ) /RAD . • ) • 01787000 

WRITE (6,404) ( OKHDF ( I ) , 1= 1 , NS ) 01788000 

WRITE (6,440) 01789000 

440 FORMAT ( IHO , 4X , » QCHDF ARRAY ', 7X, * OUT-OF-PHASE WHIRL AND SPIN VELOCO 1790000 

IITY SENSITIVE DAMPING MOMENT COEFFICIENTS AT*/23X, 'ROTOR ST A T I 0NS0179 1000 
2, (LB-IN-SEC={'^2)/RAD.* ) 01792000 

WRITE (6,404) ( OCHDF ( I ) , 1 = 1 ,NS ) 01793000 

WRITE (6,461) NB 01794000 

461 FORMAT (IHl/, 5X,12HNB = 13, 3X, 'NUMBER OF NON-LINEAR ST IFF01795000 

INESS BEARINGS. (ALLOWABLE RANGE: 2=<NB=<12)') 01796000 

gi WRITE (6,462) 01797000 

462 FORMAT( 1H0,4X8HIB ARRAY, 10)(, ' ROTOR STATION NUMBERS FOR NON-L INEA01798000 


IR STIFFNESS ' BEARINGS' ) 

WRITE (6,399) ( I B ( I ) , I == 1 , NB ) 

WRITE (6,463) 

463 FORMAT( 1H0,4X,'K ARRAY', IIX, 


01799000 
01’800000 
01801000 

'TOTAL NUMBER OF STIFFNESS SECT ION01802000 


IS FOR EACH OF THE NON-LINEAR STIFFNESS BEAR I NGS .* /23X ,*( ALLOW ABLE 01803000 
2RANGE: 1=<K=<6) ' ) 01804000 

WRITE (6,399) ( K ( I B ( I ) ) , I = 1 ,NB ) 01805000 

WRITE (6,441) 01806000 

441 FORMAT! IHO ,4X , lOHBKMX ARRAY , 8X , 63HN0N-I SOTROP IC MOUNT STIFFNESS 01807000 

ICOEFFICIENTS IN X-DIRECTION FOR /23X, 'NON-LINEAR STIFFNESS BE AR 1 0 1808000 
2NGS, LB/IN.*) 01809000 

WRITE (6,404) '( BKMX ( I B ( I ) ) , 1 = 1 , NB ) 01810000 

WRITE (6,442) 01811000 

442 FORMAT! 1H0,4X,'BKMY ARRAY'SX, 63HN0N- I SOTROP IC MOUNT STIFFNESS 01812000 

ICOEFFICIENTS IN Y-DIRECTION FOR /23X, 'NON-LINEAR STIFFNESS BEARI01813000 
2NGS, LB/IN.') 01814000 

WRITE (6,404) ( BRMY ( I B ( I ) ) , I = 1 , NB ) 01815000 

WRITE , (6,443 ) 01816000 

4'43 FORMAT! 1H0,4X'BCMX ARRAY', 8X, 'NON-ISOTROPIC MOUNT DAMPING C0EFF01817000 



IICIENTS IN X-DIRECTION FOR • /23X, • NON-L INEAR STIFFNESS BE AR INGS t ( LB018 18000 
1-SEC)/IN*» ) 01819000 

WRITE <6,404) ( BCMX { I B { I ) ) , 1= 1 , NB ) 01820000 

• WRITE (6,444) 01821000 

444 FORMAT{ IHO , 4X , lOHBCMY ARRAY , 8X , 68HN0N-I SOTROP IC MOUNT DAMPING C001822000 

lEFFICIENTS IN Y-DIRECTION FOR /23X, * NON-L INEAR STIFFNESS B01823000 

2EAKINGS, (LB~SEC)/IN.* ) 01824000 

WRITE (6,404) ( BCMY (I B ( I ) ) , I = 1 ,NB ) 01825000 

■ WRITE (6,445)' . 01826000 

445 FORMAT! 1H0,4X,9HBCB ARRAY, 9X, ‘BEARING DAMPING COEFFICIENTS FOR 01827000 

INOM-LINEAR STIFFNESS BEARINGS, ( LB-SEC )/ 1 IM. * ) 01828000 

WRITE (6,404) ( BCB ( I B ( I ) ) , I = 1 ,NB ) 01829000 

WRITE(6,420) . 01830000 

420 FORMAT! 1H1//37X, ‘NONLINEAR BEARING SPECI F ICAT IONS ' ) 01830500 

471 FORMAT(lHl) 018310Q0 

DO 19 I=1,'NB 01832000 

KI=K(IB(I) ) 01833000 

WRITE (6,464) I • 01834000 

464 FORMAT! IHO, 4X, 9HBNB ARRAY, 9X, ‘ROTOR SPIN-SPEED SENSITIVE BE ARIN01835000 

IG STIFFNESS COEFFICIENTS FOR K ST I FFNESS ‘ /23X , ‘SECTIONS OF 01836000 

^ . 2N0N-LINEAR STIFFNESS BEARING NUMBER* 13) 01837000 

^ 19 WRITE (6,404) ( BNB { IB ( I ) ,M ) ,M=1 ,KI ) 01838000 

DO 20 1=1, NB 01839000 

KI=K( IB( I ) ) 01840000 

WRITE (6,465) I 01841000 

465 FORMAT ( IHO , 4X , 9HBBB ARRAY, 9X, ‘ROTOR SPIN-SPEED SENSITIVE BE AR INOl 842000 

IG STIFFNESS COEFFICIENTS FOR K ST I FFNESS ‘ /23X , 'SECTIONS OF 01843000 

2BEARINGS FOR NON-LINEAR STIFFNESS BEARING NUMBER* 13) 01844000 

20 WRITE (6,404) ( BBS ( I B ( I ) , M ) ,M= 1 , K I ) 01845000 

DO 13 1=1, NB 
KI1=K( IB( I ) )+l 
BR0B(IB(I),1)=0.0 
WRITE (6,466) I 

466 FORMAT (IHO, 4X,*BR0B ARRAY *, 8X ,» UPPER BEARING-DISPLACEMENT L I M I TOl 850000 

IS FOR K STIFFNESS SECTIONS OF BEARING ‘ /23X, ' NUMBER * 13 ,* , IN*') 01851000 

13 WRITE (6,404) ( BROB ( I B ( I ) , M ) ,M=2 , K 1 1 ) 

DO 14 1=1, NB 
KI=K(IB(D) 

WRITE (6,467) I 

467 FORMAT ( IHO ,4X , 9HBKB 'ARRAY, 9X, ‘NON-LINEAR BEAR IN01856000 

/23X, 'SECTIONS OF01857000 


01846000 

01847000 

01848000 

01849000 


01852000 

01853000 

01854000 

01855000 


IG STIFFNESS COEFFICIENTS FOR K STIFFNESS' 
2 BEARING • /23X, * NUMBER » 1 3 ) 


01858000 



14 WRITE (6,404) ( BK8 ( I B (I ) , M ) , M= 1 , K I ) 
OD 21 1=1, NB 
KI==K(IB(I) ) 

WRITE (6,468) I 


01859000 

01860000 

01861000 

01862000 


468 format ( 1H0,4X,9HBHB ARRAY, 9X, ’NON-LINEAR BEARING STIFFNESS EXP001863000 

INENTS FOR K STIFFNESS SECTIONS OF BE AR I NG • /23X, ’NUMBER' 13) 01864000 

21 WRITE (6,404) ( BHB ( I B ( I ) , M ) , M= 1 , KI ) 01865000 

00 16 1 = 1, NB 01866000 

KI=K(IB(I) ) 01867000 

WRITE (6,469) I 01868000 

469 FORMAT ( IHO , 4X , 9HBDB ARRAY, 9X, ’NON-LINEAR BEARING STIFFNESS COEF01869000 


IFICIENTS FOR K STIFFNESS SECTIONS OF BE AR I NG ' / 23X , 
16 WRITE (6,404) ( BOB ( I 6 ( I ) , M ) , M = 1 , K I ) 

DO 17 1=1, NB 
KI=K(IB( I) ) 

WRITE (6,470) I 


•NUMBER* 13) 


01870000 

01871000 

01872000 

01873000 

01874000 


470 FORMAT ( IHO, 4X , 9HBEB ARRAY, 9X, ’NON-LINEAR BEARING STIFFNESS C0EF01875000 
IFICIENTS FUR K STIFFNESS SECTIONS OF BE AR I NG ’ /23X , 'NUMBER* 13) 01876000 

17 WRITE (6,404) { BEB ( I B ( I ) , M ) , M= 1 , K I ) 01877000 

WRITE (6,448) 01878000 

j448 FORMAT (IHl //37X, 35HINITIAL ROTOR MOTION SPECIFICATIONS) 01879000 

1CO=ICOND 01880000 

WRITE(6,450) ICO,CONTIN 01881000 

450 F0RMAT(1H0/,5X* ICUND = ' 1 3 ,7X , * I CDND= 1 MEANS' STARTING A NEW ROTOR-0188 1 100 

2BEARING CONF I GURAT I ON ' /23X * ICUND=0 MEANS READ-IN ALTERNATE IN IT I AL01881200 
3 CONDITIONS FOR THE SAME * /32X ROTOR-BEAR I NG CONF IGUR AT I ON * / /5X , ' COl 88 1 300 
40NTIN =* I3,7X*C0NTIN=0 MEANS STARTING A NEW ROTORDYNAM ICS ANAL YS I S0188 1400 
5 WITH INITIAL CONDT IONS ' /32X , ’ PRO V I DED BY THE STARUP SU6R0UT INE * /201881500 
63X, * C0NTIN=1 MEANS CONTINUITION OF A PREVIOUS ANALYSIS BY USING TH01881600 
7E PREVIOUS ’ /32X, ' RESULTS ON PUNCHED CARDS AS THE INITIAL CONDT I ONSOl 88 1610 


8 ' ) 


01881620 

01881700 

01881800 

01881900 


IF(CONTIN.EQil) GO TO 480 
WRITE (6,446) FD, FDOT,'WHIVEL,FDOFIX 
446 FORMAT! 1H0,4X, 

1 15HFD = 1PD13.4,5X'R0T0R SPIN ANGULAR DIS01882000 

IPLACEMENT COORDINATE, DEGREES .’ /5X , 15HFD0T = IPD 13 .4 , 01 882 100 

25X, ’ROTOR SPIN FREQUENCY, RPM * * /5X , 15HWH I VEL = 1PD13.4, 5X, *01882200 

3R0T0R WHIRL FREQUENCY , RPM *' /5X , 1 5HFD0FI X = 1PD13.4, 5X, 01882300 

4 »A BEARING STIFFNESS SPEED SENSITIVE PARAMETER, RPM’) 01882350 

R=3, 141 592653 58979324/30 01882310 

FDOFIX=FDOFIX^R 01882320 

GO TO 500 01882400 



480 WRIT6.{6,491) 

491 FORMAT(lHOt30Xr ‘RESTART ROTOR DEFLECTION AND VELOCITY ARRAY*) 
WRITE(6,492J 

492 FORMAT! lH0t4Xt *ROTOR DEFLECTION VECTOR LENGTHt IN.’) 

WRITE (6,404) ( Y ( I ) , I = 1 , NS ) 

WRITE ('6, 493) 

493 FORMAT(1HO,4X, ’ROTOR DEFLECTION VECTOR ANGULAR POSITION, RAD.' 

NS2P1=NSP1+NS 

NS3P1=NS2P1+NS 

NS4P1=NS3P1+NS 

NS4P2=NS4P1+1 

WRITE (6, 404) (Y(I ) , I ==N SP 1 , NS2 ) 

WRITE(6,494) 

494 FORMAT(1HO,4X, 'ROTOR DEFLECTION VECTOR VELOCITIES') 

WRITE (6,404) ( Y( I ) , I =^NS2P 1 , NS3 ) 

WRITE(6,495) 

49b FORMAT(1HO,4X, 'ROTOR DEFLECTION VECTOR ANGULAR VELOCITIES') 
WRITE (6, 404) (Y( I ) , I =N S3P 1 ,NS4 ) 

WRITE(6,496) Y ( NS4P 1 ) , Y ( NS4P2 ) 

496 F0RMAT(1H0,4X,15HF = IPD 13 .4 , bX , • ROTOR SPIN ANGULAR 

-- IPLACEMENT COORDINATE, RAD.'/bX, 15HFD0T = 1PD13.4,5X, 

^ 2R SPIN VELOCITY, RAD. /SEC.’) 
bOO WRITE(6,501) 

bOl F0RMAT(//1H0,7X, • THE END OF INPUT DATa‘.....») 

RETURN 

END 


01882500 
01882600 
01882700 
01882800 
01882900 
01883000 
I 01883100 
01883300 
01883400 
01883500 
01883600 
01884000 
01884100 
01884200 
01884300 
01884400 
01884500 
01884600 
01884700 
DIS01884800 
ROT001884900 
01885000 
01885010 
01885020 
01885100 
01885200 


Card Count 362 



SUBROUTINE STARUP 00001000 

IMPLICIT REALMS (A-HtO-Z) 00002000 

REAL ZtTITLEt INPRPM 00004000 

DIMENSION QL(25-),DD2(25) tD2( 25), 0D4( 25) tD4( 25), 0L2( 25) 00005000 

1,QLDNDD( 25) ,DN< 25) ,Q6LDND(.25 ) ,DOPLD( 25 ) ,DDL ( 25 ) ,Q1LDND( 25 ) ,0M( 25 ) ,00006000 
2AM { 25) ,QI0(25) ,AID(25) ,QIR0(25) ,AIR0(25) 00007000 

DIMENSION Z(25), QM£(25), ZS ( 25 ) , SZ ( 25 ) , Z000008000 

1{25),R0(25) 00009000 

DIMENSION C(25, 25), 8(25,25). 00010000 

DIMENSION Y(102) 00011000 

DIMENSION XX ( 25 ) , YY ( 25 ) , I B ( 12 ) 00013000 

DIMENSION AA ( 51 , 25 ) , BB ( 5 1 , 25 ) , IA(51) 00015000 

DIMENSION C0SFAL(25) ,SINFAL(25),0MEC0S(25) ,QM00016000 

1ESIN(25) 00017000 

, DIMENSION CMESIN(25,25) ,CMEC0S(25,25) 

DIMENSION QIRFD0(25) 

DO ( 25 ) ,D( 25 ) ,ECC( 25 ) ,ALFA< 25 ) , BETA ( 25 ) ,GAMMA( 25 ) 


DIMENSION 

O.IMENSION 


00018000 

00019000 

00022000 


QZ(25),,QZ0L(25) , ZQOL ( 25 ) , SZOL ( 25 ) , ZSOL ( 25 ) 00023000 
* ,QKP( 25[,0CP(25) ,OKHD( 25) ,OCHD( 25 ) , OKF ( 2500024000 

00026000 
00027000 
00027500 
00028000 


1) ,QCF(25) ,QKPF(25) ,QCPF(25) ,QKHDF(25) ,QGHDF(25) 

3,.BKMX (25) ,BKMY (25) ,BCMX( 25 ) ,BCMY( 25) ,BCB(25) , 8KB ( 25,6) ,QKSAVE (25 ) - 
40CSAVE (25) ,BNB (2 5, 6) ,BBB( 25,6) ,BROB( 25 ,7 ) ,BHB ( 25,6) , BD8( 25,6) , 
4BEB { 25,6 ) 

DIMENSION CZ(25) ,CZ1(25) ,CZ2( 25 ) ,BRQ(25,25) ,QRO( 25) 


DIMENSION CQME ( 25 , 25 ) V CONST ( 50 ) ,AS( 50,50) ,PHAROO( 25 ) , BS ( 25 , 50 ) 00029000 
DIMENSION TITLE(36), INPRPM(50) 

. C0MM0N/MAFUF1/DD,D,QL, NS,NB,IB 

C0MM0N/MAFUF2/ SZ , QZ , ZQ, SZOL , ZSOL , QZOL , ZOOL , QMLOV , QLL 

C0MM0N/MAFUF3/ IB1,IBNB \ 

. C0MM0N/MAFUF4/ Z 
C0MM0N/MAFU14/ FDOFIx' 

C0MM0N/MAFU2/ DN , AM , AI D , AI RO, ECC , ALFA , BET A, GAMMA 
. ..C0MM0N/MAFU4/ CZ,C.Z1,CZ2 

C0MM0N/MAFU5/ QK, QC , QKP , QCP , QKHD , OCHD , OKF , QCF , QKPF, QC PF , QKHDF , QC00038000 
1HDF,BKMX',BKMY,BCMX,BCMY,BCB 00039000 

..APMM0N/MA.FU6/BNB,BBB,BR0B,BKB, BHB,BDB,BEB 00040000 

COMMON/ MAFU8 / TGLB 00042000 

C0MM0N/MAFU9/ C,B 00043000 

— ._COMMON/MAFUlO/ R0,PHAR00 00044000 

COMMON/MAFUll/ FD,FDOT 00045000 

COMMON/MAI FU/ Q,S 00046000 

-.COMMON /.MARE AD/ T I TLE , INPRPM , TTT,DT,TMAX, TMZ , TMZl , TMZ2 , TMZ300047000 


00030000 

00031000 

00032000 

00033000 

00034000 

00035500 

00036000 

00037000 



If TOLI 

C0MM0N/MAFU13/Y. 

FDSAVE=FD 

FO$AVE=FDOT 

PI= 3.14159265358979324 

G«386.088 

U=4./3. 

V=PI/180. 

W = PI/(128.=:'G) 

E=PI/.(8.*G) 

F=FD*V 

FD0T=FPQT*V*6.. . 

DO 90 i=ltNB 

) 

QK$AVEnBI)=:QKnBI) 

QCSAVE(LBI)=QCnBI) 

QK( IBI )=QK( IBI )+l/(2/(8KMX(IBI )+BKMY(IBI ) )+!/( 

L1)+BNB/ IBI tl)*(FDOT~FDOFIX ) ) ) ) 

IF(BCB(IB'I ) .EQ.O* )BCB( IBI) = 1.0-16 
IF(BCMX( IBI ) .EQ.O. )BCMX( IBI ) =1.0-16 
IF(6CMY ( IBI ) .EQ.O.) BCMY( IBI )=1.D-16 

QC( IBI ) = !./( 1,/BCB ( IBI )+2./{ BCMX( IBI )+BCMY{ I.BI ) ) )+0C( IBI ) 
90 QC(IBI)=0. 

.DO 50 _ 1=1, NS 

ZS(I)=-SZ(I) 

D02(I)= DD(n**2 
D2 n.)= D(I)*«2 
DD4(I)=DD2(I)«*2 
D4(I) :*02(I)’t=«2 
,AL2.U.X.=. Qt(I)**2.. 

QLDNDD( I )=QL ( I )* DN ( I )*< D02( I ) -D2 ( I ) ) 

Q6LDND(I) = W*QLONDD(I) 

DDPL0{I) = DD2(I)+D2n) 

DDL(I) = DDPLD(I)+ U*QL2(I) 

50 QILDND(I) = £*QLDNDD(I) 

. Q.MU) = Q1LDND(,1) + AM(1) 

QM(NS)=Q1L0ND(NS-1) +AM(NS) 

QID(l) = Q6LDND{1)*0DL(1) + AID(l) 

QiD(NS)= Q6L0N0(NS-1)*DDL(NS-1) +AID{NS) 

QIROa ) = 2.=<'Q6LDND( l)=:'DDPLD( i)+AIRO( 1) 
QIR0(NS)=2**i«Q6LDND(NS-l)^DDPLD(NS-l) +AIRO(NS) 

_.NSN1 = NS.-1 


00048000 
00049000 
00051000 
00052000 
00059000 
00060000 
00061000 
00062000 
00063000 
00064000 
00065000 
00066000 
00053000 
00054000 
00055000 
00056000 
( BKB( IBI, 00057000 
00057500 
00058000 
00058100 
00058200 
00058300 
00058400 
00067000 
00068000 
00069000 
0Q070000 
00071000 
00072000 
00073000 
00074000 
00075000 
00076000 
00077000 
00078000 
00079000 
00080000 
00081000 
00082000 
00083000 
00084000 
00085000 



DO 55 I=2tNSMl 

QM(I ) =Q1LDND{ I-1)+Q1LDN0( I ) + AM( I ) 

QIO( I )=Q6LDND(I-l)>i‘DDL( I-1)+Q6LDND{ I >^DOL( I )+AID( I ) 


00086000 

00087000 

00088000 


55 OIRO(I) = 2.*(Q6LDNDn-l)*0DPLD( I-1)+Q6LDND( I )*DDPLD( I) ) +AIRG(I) 00089000 
DO 103 1=1, NS 00100000 

103 QME(I)=QM(1)^ECC{I) 00101000 

WRITE(6, 80 ) 00103000 

80 FORMAT ( 1H1///14X , 28HF0RCE INFLUENCE COEFFICIENTS) 00104000 

DO 81 1=1, NS 00105000 

81 WRITE(6,592) I , ( C ( I , J ) , J= 1 , NS } 00106000 

592 F0RMAT(1H04X3HR0WI3/(1P7D15.6)) 00107000 

WRITE (6,82 ) 00108000 

82 FORMAT ( IHl / // 14X , 29HM0MENT INFLUENCE COEFFICIENTS) 00109000 

DO 83 1=1, NS 00110000 

83 WRIT£(6,592) I , ( B ( I , J ) , J = 1 ,NS ) 00111000 

DO 45 J=l, NS 00112000 

AAU,1)=-C(1,J)«QM(1)+QID( 1 ) ( 1 , J ) /OL ( 1 ) +Q I D ( 2 ) ( 2 , J ) / ( OL ( 2 ) 001 13000 

1 +QL(1)) 00114000 

AA{ J,2)=-C(2, J)*QM(2)“QID( 1 ) ^B ( 1., J ) /OL ( 1 ) +0 ID ( 3 ) ^B ( 3 , J ) / ( OL ( 3 ) +001 1 5000 
10L(2)) 00116000 

NSM2=NS-2 00117000 

J NSM3=NS-3 00118000 

> AA(J,NSMl)=-C(NSMl,J),=frQM(NSMl)-QID(NSM2)*B(NSM2,J)/(0L(NS^2)+QLO01 19000 

1(NSM3) )+QID(NS )*B(NS, J) /QL(NSMl) 00120000 

45 AA(J,NS)=-C(NS,J)*QM(NS)-0ID(NSM1)^B(NSM1, J)/(QL(NSM1)+QL(NSM2)00121000 
1)-QID( NS) =«^B( NS, J)/OL (NSMl) 00122000 

DO ^7 J=1,NS 00123000 

DO 47 I=3,NSM2 00124000 

47 AA( J ,I )=-C ( I , J)»=QM( I )-QID( I-*l)>l'*B( I-l, J ) / ( OU I-l )+QL( 1-2) )+QID( 100125000 
l+l)=i'B( I + l, J)/(QL( I + 1)+QL( I) ) 00126000 

AA(IB1,1) = -(Q-Z( 1) )>!^QM( 1)-QID( 1)/OL(1)-OID(2)/(OL(2) + QL( 1) ) 00127000 

AA(IB1,2) = -<Q-Z(2) )*QM(2)+0ID(1)/0L(1)-QID(3)/(QL(3)+QL(2) ) 00128000 

AA(IB1,NSM1)=-(Q-Z(NSM1) ) =«‘QM ( NSMl ) +Q I D ( NSM2 )/( QL ( NSM2 ) + 0L ( NSM3 ) 00129000 
1 )-Q I D( NS ) /OL ( NSMl ) 00130000 

AA(IB1,NS) = -(O-Z(NS) ) ’5«QM ( NS ) +Q I D ( NSMl ) / ( OL ( NSMl ) +0L ( NSM2 ) )+0I 0013 1000 
1D( NS)/QL ( NSMl ) 00132000 

DO 49 I=3,NSM2 00133000 

49 AA(IB1,I )=-(0-Z( I ) )=«'QM( I)+QID(I-i) / (QLn-l)+QL( 1-2) )-OID( I + 1 ) /00134000 

1(QL( I+l )+QL( I ) ) 00135000 

AA(IBNB,1) = -(Z( l)-S)»i'QM( 1)+0I0(1) /QL( 1)+QID( 2 )/( 0L( 2)+QL( 1 ) ) 00136000 


AA(IBNB,2) = -(Z(2)-S)*QM(2)-QI0(1)/QL(1)+QID(3)/(QL(3)+QL(2) ) 00137000 

AA{ I BNB,NSM1)=-(Z(NSM1)-S)=^'QM('NSM1)-QID(NSM2)/(QL(NSM2)+QL(NSM3 >00138000 



l‘)+QIO(NS)/QL<NSMl) 00139000 

AA{IBNB,NS) = -(Z{NS)~S)*0M{NS)-0ID(NSM1)/(QL(NSM1 )+QL<NSM2 ) )*-Q 1 00140000 
1D<NS)/QUNSM1) 00141000 

DO 48 I=s3,NSM2 00142000 

48 AA( IBNBt I )=-~(Z{ I )~S)^Q(M( I ) -QI D {I~l )V { QL ( I-l )+QL( 1-2) )+OID( I + l ) /00143000 
1( QL n + 1 )+QL { I ) ) 00144000 

NSP1=NS+1 00145000 

WS2 =2*NS 00147000 

00 53 K^NSP1,NS2 00148000 

J=K-NS 00149000 

8B (Ktl ) = -C ( It 1)+QID( 1 ) *B ( 1 , J ) /QL ( 1 ) +01 0 ( 2 ) *B { 2 t J ) / ( OL ( 2 ) +00 150000 

IQL(l)) 00151000 

BB(Kr2)--C(2t J)*QM(2)-QID( 1 ) *B ( 1 1 J ) /QL ( 1 )+QID( 3 )=5'B ( 3 1 J ) / ( QL ( 3 ) +00152000 
1QL(2)) 00153000 

BB (KtNSMl )=-C{NSMltJ) *QM(NSM1)“QID( NSM2)«B (NSM2tJ) /( QL(NSM2 )+QLOO 154000 
KNSM3) )+QID(NS)*B(NSt J)/QL (NSMl) 00155000 

53 ' BB (KtNS)=-C (NS t J)»-'QM(NS)-QID(NSMl)>l«B(NSMlt J)/( QL(NSM1 )+QL(NSM2 )001 56000 

l)-QIO(NS)^B(NSt J)/OL (NSMl) 00157000 

DO 65 K=NSPltNS2 00158000 

J=K-NS 00159000 

DO 65 I=3fNSM2 0pl60p00 

65 BB( Kt I )=-C ( 1 1 I ) -QID ( I-l ) ’«^B ( I-l t J ) / ( OL ( I-l )+QL( 1-2) )+OID( 100161000 

1+1 ) *8 ( I+l t J ) / (QL{ I+l )+QL ( I ) ) 00162000 

NSB1=NS+IB1 00163000 

- BB(NSBlt 1 )=-(Q“Z( 1 ) )»!^QM{ 1)-QID( 1)7QL( 1 ) -QI D( 2 ) / { QL ( 2 ) + QL ( 1 ) ) 00164000 

BB(NSBlt2)=-(Q-Z(2) )*QM(2)+QID( 1 ) /QL ( 1) -0 ID ( 3 ) / ( QL ( 3 ) +QL ( 2 ) ) 00165000 

BB(NSBltNSMl)=-(Q-“Z(NSMl) ) *QM ( NSMT) +Q I D ( NSM2 )/( QL ( NSM2 ) +0L ( NSMOO 166000 
13) )-QID(NS)/QL(NSMl) 00167000 

BB(NSB1,NS)=-(Q“Z(N’S) )*QM(NS)+QI0(NSM1) / (0L( NSMl )+0L(NSM2) ) +0 I DOO 168000 
1 ( NS) /QL{ NSMl ) 00169000 

DO 66 I=3tNSM2 00170000 

66 BB(NSBltI )=-(Q-Z( I ) )*QM( I ) +01 D ( I~1 ) / ( OL ( I-l )+QL( 1-2) )-OID( I + 1 ) /0017 1000 

1 (QL( I+l )+QL ( I ) ) 00172000 

NSNB=NS+IBNB 00173000 

BB{NSNBtl)=-(ZU)-S)*QM( 1 ) +QI D ( 1 ) /QL { 1 ) +01 D( 2 ) / ( QL( 2 ) +QL ( 1) ) 00174000 

BBC NSNB,2)=-(Z(2)-S)*0M{ 2)-QI0( 1 ) /QL Cl )+QID( 3) / ( QL ( 3 )+QL( 2 ) ) 0.0175000 

BBC NSNBtNSMl )=-(ZCNSMl)-S)*0MC NSMl )-0IDCNSM-2)/(QLCNSM2)+QL(NSM06 176000 
13) )+QIDCNS)/QLCNSMl) 00177000 

BBCNSNB,NS)=-CZCNS)-S)=C<QMCNS)-QIDCNSM1)/CQL(N$M1)+QLCNSM2) ) -Q 1000178000 
1(NS)/0LCNSM1) 00179000 

DO 56 I=:3tNSM2 00180000 

BB(NSNBtI)=~(ZCI)-S)*QMC I)-QID( I-1)/CQL(I-1)+QLC 1-2) )+QIDC I+l ) /00181000 


56 



1(QL(I+1)+QL(I) ) 

DO 67 J=1,NS 
DO 67 I=ltNS 
OME( I )=QMU )^ECCn ) 

CQME( I , J )=C { 1 1 J) ={«OME ( I ) 

FALFA ~ F+ ALFA(I)J^V 
SINFAU I )=DSIN| FALFA) 

QMESIN( I )=:QME ( I ) =>=5 INF AL( I ) 

COSFALn)=DCOS(FALFA) 

QMECOS ( I )=QME( I )=^COSFAL ( I ) 

CMESINl I t J)=CQME ( I , J ) NF AL ( I ) 

61 C.MECOSI I, J)=CQME ( I , J J ^{'COSF AL { I ) 

DO 71 I=1,NS 

71 QIRFDOI I )i=OIRO( I )>{'FDOT 

. NS2 ?2*NS 

FD0TSQ = FD0T^^^«2 
FF=0,0 

DO, 690„J=1,NS2 

DO 690 1=1, NS2 
690 AS(J,I)=0 

D0_700 J = 1,NS 

j BR0U,1)= B(l,J)i{«OIRO(l)/QLU) +B ( 2 , J > I RO ( 2 ) / ( OL ( 1 ) 

^3 BRO( J ,2 ) =-B U,J>»QIR0(1)/0U1) +B{3,J)*0IR0(3)/(0L(2) 

-^BR0(,J,NSM1)=-B(NSM2, J)*QIR0CNSM2)/(QL (NSM3) + QL( NSM2) ) 

10IRO(NS)/QL(NSM1> 

700 BRO( J,NS)= “B(NSM1, J)*QIR0{NSM1) /<OL(NSM2)+OUNSM1) ) 
.. .l.RO(NS)/QL(NSMl) 

DO 710 J=1,NS 
DO 710 I=3,NSM2 

7J0._. BROJ J,.I )= ~B(I-1,J)>S=QIR0(I-1)/ ( QL (1-2 ) +QL ( I”1 ) ) + B{ I 
U + l)/(QLn)+QUI + l) ) 

QR0(1)= QIR0(1)/QL(1)+ QIR0(2)/ (QU1)+0L(2)) 

QR0{2)= -QIRO{ 1)/QL( 1) +QIR0(3)/ { QL ( 2 ) +0L { 3 ) ) 
QR0(NSM1)= ~QIR0(NSM2)/ ( QL ( NSM3 ) +0L { NSM2 ) ) +QIRO(NS) 
QRO(NS) = -QIRO^NSMl) / { QL < NSM2 ) +0L ( NSMl ) ) -Q IRQ (NS)/ 
00,7 20 J =3, NSM2 

720^^ QRO(I)= -QIRO(I-l) / ( QL ( I -2 ) +0L ( I -1 ) ) +0IR0(I + 1)/ ( OL 

_ ... DO 730..J = 1,NS 
CONST( J)=0 
DO 740 1=1, NS 

-I£tCL CONS ) =CONST ( J )~CMECOS { I , J ) 


00182000 
00183000 
00184000 
00185000 
00186000 
00187000 
00188000 
00189000 
00190000 
00191000 
00192000 
00193000 
00194000 
00195000 
00196000 
00198000 
00199000 
00200000 
00201000 
00202000 
00205000 
+ QU2)) 00206000 

+0L(3)) 00207000 

+ B(NS,J)* 00208000 
00209000 
~B(NS, J)5i^0I()0210000 
00211000 
00212000 
00213000 
+1,J)*QIR0(00214000 
00215000 
00216000 
00217000 
/QL(NSMl) 00218000 
QL(NSMl) 00219000 
00220000 
( I )+0L( 1+1)00221000 
00222000 
00223000 
00224000 
00225000 
00226000 



730 


7i)0 


770 

760 


775 


7 90 


C0NSTU)= F00TSQ*C0NST( J) 

C0NST{IB1)=0 
CONSK IBNB)~0 
DO 750 1=1, NS 

CONSK IB1)=C0NST( IBl) -Q2(I)* OMECUSn) 
C0NST(IBNB)=C0NST(I8NB) -ZS(I) ^ONECOSd) 
CONST ( IBl }=FDOTSO*CUNST( IBl) 

C0NST(IBN8)= FDOTSO^'CONSK IBNB) 

DO 760 J=NSP1,NS2 
K=J-NS 


CONSK J)=0 
DU 770 1=1, NS 

CONST(J)= CONST! J)-CM6SIN( I,K) 

CONST(J)= FDUTSQ«CONST( J) 

C0NST(NS81 )=0 
C0NST(NSNB)=0 
DO 775 1=1, NS 

C0NST(NSB1)= CONST(NSBl) -OZ ( I ) «OMES I N (I ) 
CONST(NSNB)= C0NST(NSlM6) -ZS ( I ) ❖QM t S IN ( I ) 
C0NST!NSB1)= FDUTSO* C0NST{NSB1) 
CONST!NSNB)= FDOTSQ* CONST(NSNB) 

DO 790 J=1,NS 
DO 790 1=1, NS 

AS(J,I) =-Cn,J)*QK{I) +FDUTSQ>!^BRO( J,I) 
BS(J,I)=AS(J,I) 

DO 800 J=1,NS 
DO 800 I=NSP1,NS2 


M=I-NS 


AS(J,I)= C (N, J)>!^FDOr*QC(M) 

800 BS!J,n=-AS(J,I) 

DO 810 J=1,NS 

AS(J,IB1)= AS! J,IB1)+1-ZS(J)/0LL 
BS! J,IB1)=AS! J,IB1) 

AS! J, IBNB)=AS ! J, IBNB)+ZS! J) /QLL 
BS!J,IBNB)=AS! J,I6NB) 

AS!J,J) = AS!J,J)-1 
810 BS! J,J)=AS! J, J) 

DO 820 1=1, NS 

AS! IBl , I ) =-0Z ! I )*!'QK! I ) » FDOTSO^ORO! I ) 
820 BS!IBl,I)=AS!IBl,n 
DO 830 I=NSP1,NS2 
M=I~NS 


00227000 

00228000 

00229000 

00230000 

00231000 

00232000 

00233000 

00234000 

00235000 

00236000 

00237000 

00238000 

00239000 

00240000 

00241000 

00242000 

00243000 

00244000 

00245000 

00246000 

00247000 

00248000 

00249000 

20052000 

20052500 

00251000 

00252000 

00253000 

20055000 

20055500 

00255000 

00256000 

20057500 

00257000 

20058500 

20059000 

20059500 

00259000 

20065000 

20065500 

00261000 

00262000 




AS(IB1tI)= QZ(M)»1«FD0T»^QC{M) 

20068000 

830 

BS{IB1,I)=~AS(IB1,I) 

20068500 


DO 840 1=1, NS 

00264000 


AS(IBNBtI)= -ZSn)^QK(I) +FDOTSO^ ORO(I) 

20075000 

840 

BS( IBNBtl )=AS( IBNB, I ) 

20075500 


DO .850 I = NSP1,NS2 

00266000 


M=I~NS 

00267000 


ASnBNB,I)= ZS(M)«QC(M)^FDOT 

20077000 

830 

BSnBNB,I)=-AS(IBNBTl) 

20077500 


DO 860 J=1,NS 

00271000 


PO 860 1=1, NS 

00272000 

860 

AS(J,I)= AS(J,I) ~FDOTSO»AA< J,I) 

00273000 


DO 950 J=1,NS 

00297000 


DO 950 1=1, NS 

00298000 


K=J+NS ■ 

00299000 

930 

BS(J,I)= BS(-J,I) -FDOTSQ’!'BB(K,I) 

00300000 


DO 630 J=NSP1,NS2 

00301000 


M=J-NS 

00302000 


DO 630 I=NSP1,NS2 

00303000 


K=r-NS 

00304000 


AS(J,I ) = BS(M,K) 

00305000 

^630 

AS( J,K)=BS(M, I ) 

00306000 


KL=ISIMDD(50,NS2, 1,AS,C0NST,FF, lA) 

■ 00321000 

4=- 

DO 620 1=1, NS 

00322000 


IPNS=I+NS 

00323000 


XX( I )=AS( 1,1) 

00324000 

6 20 

YYU )=ASnPNS,l) 

00325000 


WRITE(6,471) 

00325500 


WRITE(6,600) 

00326000 

600 

F0RMAT(1H0,4X, 'COMPUTED STARTING XX ARRAY*) 

00327000 


WRITE (6, 404) ( XX ( I ) , 1=1 ,NS ) 

00328000 


WRITE{6,610) 

00329000 

610 

F0RMATUH0,4X, 'COMPUTED STARTING YY ARRAY') 

00330000 


WRITE (6,404) ( YY ( I ) , I = 1 , NS ) 

00331000 


DO 870 1=1, NS 

00332000 


R0( I)=DSQRT{XXU )#*2+YY( 1)^*2) 

00333000 


PHAROOn )=DATN2D( YY( I ) ,XX ( I ) ) 

00334000 

870 

IF (PHAROOl I ) .LT,0) PHAROO( I ) =360+PHAR‘00 ( I ) 

00335000 

404 

FORMAT (7X,1P6E13.4) 

00336000 

471 

FORMAT( IHl ) 

00337000 


WRITE, (6,447) 

00338000 

447 

FORMAT(1HO,4X, 

8HR0 00339000 



lARRAYtlOXt » INITIAL DISPLACEMENT VECTORS (WHICH CAN NOT BE ZERO) FR00340000 


lOM THEIR RESPECTIVE ZERO LOAD«/23X 
WRITE- (6,404) ( RO ( I ) , I = X , NS ) 

WRITE (6,449) 

449 F0RMAT(1H0,4X»PHAR00 ARRAY * , 6X ' I N I 
ICEMENT VECTORS, DEGREES /23X ,' THE 
2 MULTIPLES OF 90 DEGREES.*) 

WRITE (6,404) ( PHAROO ( I ) , I == 1 ,NS) 

WRITE(6,471) 

IF (KL.NE.3) GO TO 560 
WRITE ■ (6,540) KL 
540 FORMAT(lHl/iOX,4HKL =11) 

CALL EXIT 
560 FD=FDSAVE 
FDOT=FOSAVE 
DO 980 1=1, NB 
IBI=IB( I ) 

QK(IBI)=QKSAVE(IBI) 

9B0 OC(IBI)=QCSAVE(IBI) 

RETURN 

END 


♦POSITIONS, IN**) 00341000 

00342000 

00343000 

lAL PHASE ANGLES FOR THE D ISPLA00344000 

PHASE ANGLES CAN NOT BE ZERO 0R00345000 

00346000 

00347000 

00350000 

00351000 

00352000 

00353000 

00354000 

00355000 

00356000 

00357000 

00358000 

00359000 

00360000 

00361000 

00362000 


vn. 


Card Coixnt 315 
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SUBROUTINE FUND ( N , T , Y , BD ) 00102000 

IMPLICIT REALMS {A-HfO-Z) 00103000 

REAL Z t TI TLE t I NPRPM 00105000 

DIMENSION QL(25),DN(25), 00106000 

10M(25) tZ(25) ,QME(25) ,SZ( 25) ,ZQ(25) , QMZ ( 25 ) t ROSQ ( 25 ) t Y ( 102 }, 00 107000 

2AM<25)t0ID{25)tAID(25)tQIR0<25)tAIR0(25) 00108000 

3,DELTX(25) ,.DELrY(25) ,C0SAB(25) ,SINAB(25),XDOT(25) ,YD0T(25) tXX(25) ,00109000 

4YY(25) ,IB( 12) ,XBD0T(25) , YBDOT { 25 ) ,BCB( 25) ,BCMX( 25 ) , BCMY ( 25 ) , KK ( 25 ) 001 10000 
5,C(25,25),B(25,25),BKMX(25),BKMY(25) 00111000 

DIMENSION BNB < 25,6) , BBB( 25,6) , BROB( 25 ,7) , 8KB ( 25 , 6 ) , BHB < 25 , 6 ) ,B0B00 122000 
1 < 25 ,6 ) , B EB ( 2 5 , 6 ) 00123000 

DIMENSION AA ( 51 , 25 ) , BB < 5 1 , 25 ) , ARUT ( 5 1 , 5 1 ) , I A ( 5 1 ) 00124000 

1,CCI51) , DRO (51),DSTA(5l) 00125000 

DIMENSION C0SFALt25) ,SINFAL( 25),QMEC0S(25) ,QM00126000 

1ESINC25) tQIDBSN(25) ,QIDBCS(25) ,QMEFSQ(25),QKHDF(25),QCHDF(25) , 000127000 

25) ,XB(25),YB{25), AMX( 25) , 00131000 
3AMY(25) »CZ(25) ,CZU25) ,CZ2(25) ,C0SFGA(25),SINFGA(25) 00131100 

DIMENSION AFX (25 ) ,AFY( 25) , AMXl ( 25) , AM Y 1 ( 25 ) , AMX2 ( 25 ) , AM Y2 ( 25 ) 00132000 

DIMENSION BO ( 102 ) ,WHRVLO ( 25 ) , OKHDD ( 25 ) , QCHDD ( 25 ) 00133000 

DIMENSION DD(25) ,D(25) ,ECC(25) , ALFA(25) , BETA ( 25 ), GAMMA ( 25 ) , 00134000 


i^inuPNoiuiH DU ( / ,wnKVLU I j , ORHDDi 2b ) ,QCHDD( 25 ) 00133000 

DIMENSION DD(25) ,D(25) ,ECC(25) , ALFA(25) , BETA ( 25 ), GAMMA ( 25 ) , 00134000 

^ 00135000 

DIMENSION QZ(25),QZ0L(25) , ZOOL ( 25 ) , SZOL ( 25 ) , ZSOL ( 25 ) 00136000 

. XKF(25),XCF(25) ,XKFF(25) ,XCFF(25), QK( 25 ) ,QC( 25 ) ,0KP00139000 

1(25) ,0CP(25) ,QKHD(25) ,QCHD(25) ,QKF(25) ,QCF(25),QKPF(25),QCPF(25) 00140000 

DIMENSION TITL£(36), INPRPM(50) 00143000 

COMMON/MAFUFl /DD , D , QL , NS,NB,IB 00144000 

C0MM0N/MAFUF2/ SZ ,QZ , ZQ , SZOL , ZSOL , OZOL , ZQOL , QMLOV , QLL 00145000 

C0MM0N/MAFUF3/ IB1,IBNB 00146000 

C0MM0N/MAFUF4/ Z 00147000 

C0MM0N/MAFU14/ FDOFIX 00147600 

COMMON/MAFUO/ ITIM,INT, KK 00148000 

C0MM0N/MAFU2/ DN , AM , A I D , A I RO, ECC , ALF A , BET A, GAMMA, GX , GY 00149000 

C0MM0N/MAFU4/ CZ,CZ1,CZ2, XKF ,XCF , XKFF , XC FF 00150000 

C0MM0N/MAFU5/ OK, OC , QKP , QCP , QKHD , QCHD , QKF , OCF, OKPF , QC PF , OKHDF , OCOO 15 1000 
IHDF, BKMX , BKMY , BCMX , BCM Y , BCB 00152000 

C0MM0N/MAFU6/ BNB , BBB , BROB , BKB, BHB, BDB , BEB 00153000 

COMMON /MAFU7/R0SQ, WHRVLO , DELTX , DELTY 00154000 

C0MM0N/MAFU8/ TOLB 00155000 

C0MM0N/MAFU9/ C,B 00156000 

X /MAFU12/QM ,Q 1 0 , Q I RO 00157000 

1 /MAFUl 1/FD , FOOT 00157100 

COMMON/MAI FU/ Q,S 00158000 



COMMON/MAREAD/ TirLEtlNPRPMt TTT,Dr,TMAXt TM Z ♦ TH Z 1 , FMZ2 , TMZ 300 159000 

It TOLI 00160000 

2 /SFP2/NSMl,NSM2rNSM3tNSPl,NS2tNS3rNS4,NS4Pl,NS4P2tNS2Pl 

3 /GARBG5/0ME 

4 /GARBG6/QMZtAA,BBtAR0TTCC,DR0,USTA, 

SCOSABtSINABtQIRFOOtQKHUFFtOCHDFFtBRGROPtAFXT AFYt AMXl, AMX2tAMYl 
6AMY2 tQCHDDtQKHD0,A, AMX,AMY,COSFGA,SINFGA, 

7TRIG,COSFAL,SINFALtOhECQS,QMESIN,OIDBET,OIDBSN,OIDBCStOMEFSQ, 

8IA 

9 /GARBG7/XXtYY,XBt YB^XBOTtYDOT^XBOOT, Y60UT 

IF (INT .EQ-Z) GO TO 406 


PI=^ 3.14159265358979324 
V=PI/180. 

DO 103 I^ltNS 
103 QME(I}=QM(I)*ECC(I) 

INT=2 

406 DO 2 I=:1,N 

IF{.Yn.) .GE. 1.014) GO TO 3 

2 CONTINUE 
GO TO 4 

3 RETURN 

4 FDOT=Y (NS4P2) 

DO 79 1=1, NS 
INS=I+NS 
I2NS=I+NS2 
I3NS=I+NS3 

COSABU )=0C0$( Y( INS) ) 

SINAB( I )=DSIN( Y( INS) ) 

XNUTR=Y{I)*COSAB(I) 

YNUTR=Y(.I )=t^SINAB( I ) 

XXn )=XNUTR-DEUTX( I ) 

YY{ I )=YNUTR-DELTY( I ) 

XDOT{ I )=Y( I2NS)*C0SAB( I ) -Y ( I ) =5*Y n3NS)*SINAB( I ) 

YDOT( I )=Y(I2NS)*SINA6( I ) +Y ( I ) Y (1 3NS ) *C0SAB ( I ) 

79 WHRVL0m=Y(I3NS) 

80 CALL BRGXY 

DO 45 J=1,NS 

AA(J,l)=-’Ca,J)*0Ma)+0ID( 1)*B( 1,J)/0L( 1) + 0ID( 2 )^B(2tJ)/(0L( 2)00313000 
1 +QL(1)) 00314000 

AA( J,2 )=-C(2,J)*0M{2)-QID( 1)^B( 1, J)/QL(1)+0ID(3)*B(3, J)/(0L(3)+00315000 
1QL(2)) 00316000 

AA( J,NSM1)=-C(NSN1, J)#QM(NSMl)-0ID(NSM2)^‘B(NSM2t J)/(0L(NSM2)+QL00319000 


00160010 

00160020 

00160030 

00160040 

00160050 

00160060 

00160070 

00160080 

00161000 

00162000 

00165000 

00200000 

00201000 

00203000 

00203000 

00204000 

00205000 

00206000 

00207000 

00210000 

00211000 

00212000 

00213000 

00214000 

00215000 

00216000 

00217000 

00218000 

00219000 

00220000 

00221000 

00222000 

00223000 

00223100 

00312000 



KNSM3 } ) +QID ( IMS ) ( NS , J ) /QL (NSNl ) 00 3 20000 

45 AA( J, NS )=-C (NS, J) (NS) -Q ID ( NSMl } (NSNl , J ) / ( OL ( NSMl )+0l ( NSH2 ) 0032 1000 

1 ) -01 D ( NS ) ( NS , J ) /OL (NSMl ) 00322000 

DO 47 J=1,NS 00323000 

DO 47 I=3,NSM2 00324000 

47 AA( J, I ) =-C ( I , J) ( I ) -QID ( I-l )>:sB( I-l , J ) / ( OL ( I-l )+0L ( 1-2 ) )+OID( 100325000 

1+1)*B ( I+l ,J ) / (0L( I+1)+0L( I ) ) 00326000 

AAdBltl) -(0~Z( 1) )»0M( 1)-0ID( 1) /QL ( 1 )-OID( 2 )/( Q‘L( 2 )+0L( 1 ) ) 00327000 

AA(IB1,2) = “(Q-Z ( 2 ) ) *QM( 2)+0ID( 1 ) /OL ( 1 )-0I0( 3 ) /( 0L( 3 )+QL( 2 ) ) 00328000 

AA( IBl , NSMl )=-(0-Z( NSMl ) ) ^i^OM ( NSM 1 ) +0 1 D ( NSM2 ) / ( OL ( NSM2 ) +0L ( NSM3 ) 003 29000 
l)-OID(NS) /QL(NSMl) 00330000 

AA(IB1,NS) = -(O-Z(NS) )^0M(NS)+QID(NSM1)/ (QL( NSM1)+QL(NSM2) )+QI00331000 
ID ( NS ) /QL ( fvjSM 1 ) 00332000 

DO 49 I=3,NSM2 00333000 

49 AA( IBl, I ) =-(Q-Z ( I ) ) =;^QM( I) +01 D ( I -1 ) / ( QL ( I -1 ) +QL ( 1-2 ) ) -OID ( I + l ) / 00334000 
•1(QL( I + 1)+0L( I) ) 00335000 

AA(IBN6,1) =. -( Z ( 1 )-S) >i^Qh( 1 ) + OID( 1 } /OL ( 1 )+QID( 2 ) /( QL( 2 )+0L ( 1 ) ) 00336000 

AA(IBNB,2) = ”(Z(2)-S)>{=QM(2)-QID( 1) /0L( 1)+0JD( 3)/(QL(3)+QL( 2) ) 00337000 

AA ( IBNB ,NSM1 )=-( Z.(NSM1 ) -S)^0M(NSM1 ) -0 1 D ( NSM2 ) / ( QL ( NSM2 ) +QL ( NSM3 ) 00338000 
1)+0ID(NS)/QL (NSMl) ' 00339000 

AA ( IBNB ,NS ) == -( Z (IMS ) -S ) >;^QM ( NS ) -0 1 D ( NSMl ) / ( OL ( NSM 1 ) +0L ( NSM2 ) )-Q 1 00340000 
ID ( NS ) /QL ( NSM 1 ) 00341000 

DO 48 1=3-, NSM2 00342000 

48 AA( IBNB, I )=-(Z( I )-S)*QM( I ) -QI D ( I-l ) / ( QL ( I-l }+QL ( 1-2) )+QIQ( I + 1 ) /00343000 

1 (0L( I+l )+QL ( I ) ) 00344000 

DO 53 K=NSP1,NS2 00348000 

J=K-NS 00349000 

BB( K, 1 ) =-C ( 1, J ) ^QM (1 )+QID( 1) *B( 1, J ) /OL ( 1 )+QID( 2 2, J ) / ( OL ( 2) +00350000 

^QL(l)) 00351000 

BB (*K , 2 ) =-C ( 2 , J ) >«=QM (2)-QID(l)^B(l,J) /QL ( 1 ) +Q I D ( 3 ) ?J^B ( 3 , J ) / ( OL ( 3 ) +00352000 
^QL(2)) 00353000 

BB ( K,NSM1 ) =-C ( NSMl , J ) j 5«QM ( NSMl ) -Q I D { NSM2 ) *B ( NSM2, J ) / ( OL ( NSM2 )+QL 003 54000 
1 ( NSM3 ) ) +QID ( NS ) *B ( NS, J ) /QL ( NSMl ) 00355000 

53 BB(K,NS)=-C(NS, J)*0M(NS)-QID(NSM1)^B(NSM1, J ) /( QL ( NSMl ) +QL ( NSM2 ) 00356000 
1)-QIU(NS)>!'8(NS,J)'/QL(NSM1) 00357000 

DO 65 K=NSP1,NS2 00358000 

J=K-NS 00359000 

DU 65 I=3,NSM2 00360000 

65 BB (K,I )=-C( I , J)=«'QM( I ) -Q I D ( I -1 ) ^B ( I-i , J ) / ( QL( I-l ) + QL( 1-2) )+QIO( 100361000 
1+1)*B(I+1,J)/{QL(I+1 )+QL ( I ) ) 00362000 

NSB1=NS+IB1 00363000 

BB( NSBl , 1 )--(Q-2 ( 1 ) )5|«QM( 1 )-QID( 1 ) /QL ( 1 ) -Q ID ( 2 ) / ( OL ( 2 )+QL ( 1 ) ) 00364000 



BB{N$Blt2 )=~{Q“Z(2) ) *QM ( 2 ) +Q I D { 1 ) /0L( 1 ) -01 D( 3 ) / ( QL ( 3 ) +QL ( 2 ) ) 00365000 

BB<NSB1,NSM1 )=-(Q-Z(NSMl) ) *0M( NSMl ) +01 0 ( NSM2 ) / ( OL (N$M2 ) +0L ( NSM00366000 
13) )-QID{NS)./OL(NSMl) 00367000 

BB(NSB1,NS)=-(.Q“Z{NS) ) *QM(NS)+0I0(NSM1 ) / ( OU NSMl ) + 0L(NSM2 ) ) +0 ID00368000 
MNS)/QL(NSM1) 00369000 

DO 66 I=3,IMSM2 00370000 

66 BB (NSBl, I )~~{Q-Z( I ) )*QM( I ) +QI D (I -1 ) / ( OL ( I-1)+QL{ 1-2) )-QID{ 1+ 1 ) /0037 1000 
KOLH + l )+0L ( I ) ) 00372000 

NSNB=NS+IBNB 00373000 

BB(NSNBt1)=-(ZU)-S)*QM( 1)+QID( 1)/QL( 1)+QID(2)/( QL(2)+QL( 1) ) 00374000 

BB{NSNB,2)=-(Z(2)-S)^QM(2)-QID(1)/QL{1)+QI0(3)/{QL(3)+QL( 2) ) 00375000 

BB (NSNBtNSMI ):=-{ Z (NSM1)-S)=«'QM(NSM1)~QID(MSM2)/( QL(NSM2)+0L(NSM00376000 
13 ) ) +Q I D ( NS ) /QL { NSM 1 ) 00377000 

BB ( NSNBfNS )=-( Z (NS)-S) 5i'QM(NS)~0ID(NSMl ) / (OU NSMl )+0L ( NSM2 ) ) -0 1 00037 8000 
1(NS)/QL(NSM1) 

DO 56 I=3,NSM2 

56 BB(NSNB, I )=-(Z( I )-S)^QM( I )~QI0(I-1)/(QL( I-1)+QL( I- 
1(QL( I+1)+QL( I ) } 

DO 76 1=1, NS 

FGAMMA = Y(NS4P1)+GAMMA( D^'V 
COS FG A ( I ) =DCOS ( FGAMMA ) 


00379000 
00380000 
-2))+0ID( I + D/00381000 
00382000 


76 


67 


SINFGA( I )=DSIN{FGAMMA) 

FALFA=Y(NS4P1)+V*ALFA{ I) 

SINFAL( I )=DSIN{FALFA) 

COSFAL( I )=DCOS(FALFA) 

OMESINd )=QME(I )*SINFAL( I) 

OMECOSn )=QME(I )*COSFAL( I ) 

BETA( I ) = V>{'BETA( I } 

QIDBET=QID{ I )*BETA{ I ) 

'QIDBSN( I )=QIDBET«SINFGA{ I ) 

OIDBCS( I )=QIDB£T*C0SFGA( I) 

DO 67 J=1,NS 
CC{ J)=0.0 
DO 67 1=1, NS 

CC( J)=CC ( J)+B(I , J)*0I0BSN{ I )+C{ I ,J)*0ME( I )*SINFAL{ I ) 
CC( IB1)=0.0 
CC( IBNB)=0.0 
DO 78 1=1, NS 
QMZ( I )=Q-Z( I ) 

CIB1=QMZ( I )*QMESIN( I)-QI06SN( I ) 

CIBNB=(Z( n-S)''!«QM£SIN( I )+QIDBSNn ) 
CC(IB1)=CC(IB1)+CIB1 


00383000 

00384000 

00385000 

00386000 

00386020 

00386030 

00386040 

00386050 

00386060 

00386070 

00386080 

00386090 

00386100 

00387000 

00388000 

00389000 

00406000 

00407000 

00408000 

00409000 

00410000 

00411000 

00412000 

00413000 



78 CC( IBNB)=CC( IBNB)+CIBNB 

UO 71 J=NSP1,NS2 
K=J-NS 
CC( J)==0.0 
DO 71 1=1, NS 

71 CC( J )=CC( J)-CDSFAL (I )=!‘C{ I,K)*QMen ) -B ( I , K ) I DBCS ( I ) 
CC{NSB1)=0.0 
CC(NSNB)=0.0 
DO 73 1=1, NS 

CIB1=-QMZ ( I )>«=QMECOS( I )+OIDBCS( I ) 

CIBNB=“(Z( I )-S)>l^QMECOS( I )-QIDBCS{ I ) 
CC(NSB1)=CC(NSB1)+CIB1 
73 CC(NSNB)=CC(NSNB)+CIBNB 
CC(NS2P1)=0.0 
DO 75 1=1, NS 
AA(NS2P1,I)=-0MESIN(I) 

BB(NS2P1,I)=0MEC0S( I) 

C'2NP1 = QIR0( I )+QME ( I )^ECC( I ) 

75 CC( NS2P1 )=CC(NS2P1 )+C2NPl 

FDOTSO=PDOT^*2 


00414000 

00416000 

00417000 

00418000 

00419000 

00421000 

00422000 

00423000 

00424000 

00425000 

00426000 

00427000 

00428000 

00430000 

00431000 

00432000 

00433000 

00434000 

00435000 

00436000 


DU 201 1=1, NS 
I3NS=1+NS3 

QMEFSQ( I )=QME( I )#FDOTSQ 
QKHDD( I )=QKHD( I ) ^{FDOT-XKF ( I )^Y( I3NS) ) 
QCHODU )=QCHD ( I ) =4= ( FDOT-XCF ( 1) { I 3NS ) ) 

QIRFDDU )=QIRQ( I )^FDOJ 


00437000 

00438000 

00439000 

00440000 

00441000 

00444000 


QKHDFFU }=QKHDF { I ) ^ ( FDDT-XKFF { I- ) >l^Y ( I3NS) ) 

201 QCHDFF ( I )=QCHDF( I ) * ( FDOT-XCFF ( U *Y ( I3NS) ) 
FOSAV£=FOUT 

FOGT=FOOT*-FDOFIX 
DU 202 1=1, NB 
IBI=IB(I) 

KKB=KK{ IBI } 

BRO=DSQRTUB( IBI )^*2 + YBI IBI )>;^=^<2) 

202 BRGROPI IBI ) = ( FDOT» { BNB ( I B I , KKB ) +BBB ( IBI , KKB ) ( BRO- 


00445000 

00446000 

00446500 

00446550 

00447000 

00448000 

00449000 

00451000 

BRUB( IB I, KKB) ) ) +00452000 


IBKBI IBI, KKB) )«IBRO*>J 
2BR0) 

FDOT=FOSAVE 
DO 63 1=1, NS 
63 A{I)=0,0 

DO 54 1=1, NB 
IBI=IB(I) 


(BHB( IBI,KKB)-1.)+BDB( I B I , KKB ) +BEB ( IB I, KKB)/ 


00454000 

00455000 

00455500 

00456000 

00457000 

00458000 

00459000 



i>4 A( I8I )=BRGROPnSI )>«'X8C IBI )+BCBU8I )’5^XB0QT UBI) 00460000 

DO 203 1=1, NS 00461000 

203 AFXU )=~(QM(I)5?cGX^QM6FSO( I) «^C0SFAL ( I ) +0K ( I)^XX( I)+0C( I)*X00T( 100462000 

1 ) -f QKP U } Y ( n +0CP C I ) «YDOT { I ) +QKH00 U ) ^ Y Y U ) +0CHDD < I ) ^ YDOT C I ) ) -A U 00463000 

2) . 00464000 

DO 204 1=1, NB 00465000 

IBi=i6U ) 00466000 

204 A( IBI >=BRGROP( IBI M^Y8( I B I) + BCB (I B I ) '"^YBOOT ( I B I ) 00467000 

DO 205 1 = 1, NS 00468000 

TRIG='CQIDn )-OIRO( I) )'^FDOTSO=J^86TA( I) 00468010 

AFY(J )=-(QN( I)^GY~QNFFSQ{ n^SINFAUI )+0K( n-*^YY( I ) +0C ( I ) *YDOT { 1 00469000 

1) -QKP( I )=<^XX( I )-OCP(I )^XDOT( I )~QKHOD( n*XX( n-QCHDD( 1 )*XDOT( I ) )~A( 100470000 

2 ) 00471000 

AMYUI )=T.RIG’5'C0SFGA( I ) 00472000 

205 AMXK I )=-TRIG«SINFGA( I) 00473000 

1=1 00474000 

J=2 00475000 

K=1 00476000 

57 AMY2 ( I)=“1*/QL{K)*(0IRFDG( i) ^ ( YDDT { J ) “YDOT ( K ) )+OKF{ I) ^ ( XX ( J ) ~X00477000 

1X(K))+ • 00478000 

1 QCF( I )*MXDOr( J)-~XOOT(K) ) +OKPF ( I ) # ( YY ( J ) -YY( K ) )+OCPF( I ) YOOT ( 00479000 

2J)~YD0nK) )+0KH0FF( I }*( YY{ J)-YYU) ) +OCHDFF U ) YDUT { J } -YDOT I K ) ) ) 00480000 

AN1X2 ( I )=1./QLCK)^M~QIRFDU{ I ) ❖ ( XDO T { J ) -XDGT ( K ) )+QKFC I ) « ( YY C J ) ~Y0048 1000 
1Y(K) ) + OCF ( I )*(YDOT( J)-“YOOT(K) ) -OKP F ( I) * ( XX ( J )-XX ( K ) )~QCPF( I ) XD0T00482000 

2( J)~XDOT(K ) )-QKHDFF( i )=Jc(XX( J)“‘XX(K) )--QCHDFF( I XDOT ( J ) -XDOT { K ) ) ) 00483000 

IF (I.GTa) GO TO 58 ’ 00484000 

I=NS 00485000 

J=NS 00486000 

K=NSM1 00487000 

GO TO 57 00488000 

58 DO 59 I=2,NSM1 00490000 

AHY2< n= -1,/COU I““i)+QLC I) )^MQIRFDO{ I )^ { YOOT ( I + U-YDOTC I-l ) )-f00491000 
1QKF{ I )*(XX( I + 1)-“XX( I“l) )+OCF( I ) XDUT ( I + l ) -XDO f ( I-l) )+OKPF( I }❖{ YY { 00492000 
2i + l)-YYn~in+0CPFn )*IMYDOTn + l)-yDOT< I-n )+0KHDFF( YY( I + l )-YY(Q0493000 

31-1) )4-QCHDFFCI )^(YOUTU + X)-YDOT| i-1) n 00494000 

59 AMX2(I )=1./ (QUI-1)+QL( I ) ) {-Q I RFDO U ) XDOTC 1 + 1)-XD0T{ I-l ) ) +000495000 

IKFU )*{YYn + l)-YYn-I) )+OCF{ I ) UDOT { I + l ) -XUOT ( I-l ) )-QKPF{ I )>!«( XX U 00496000 
2+i)-XXn-l) )-QCPFC I J^MXDOTII + D-XDUTC 1-1 ) )-OKHDFF< I )«CXX( I + 1)-XX< 100497000 
3-1 ) }-QCHDFF( I )*M XD0T(I + 1)-XDL)T( I-l) ) ) 00498000 

DO 60 1=1, NS 00499000 

AHY n ) =AM Y 1 n ) +AM Y2 ( I ) 00500000 

60 AMX( n«AMXl ( I )+AMX2( I ) 00501000 



DU 69 J=1,NS 
DST=0. 

DO 44 I=ltNS 

DSTAT = n f J )>!^AFX{ I )“B( I , J)>!^AMY( I } 

44 DST=OS'T + DSrAr 

69 DSTA( J )~DST-XX{ IBl )-( XX( IBNB)-XX{ IBl) ) * ( Z ( J ) -S ) /QLL+XX ( J ) 

DSTA(IB1)=0.0 
DSTA( IBNB)=0.0 
DO 43 1=1, NS 

DSTl = -( (Q“Z( I ) )^‘AFX( I )-AMY ( I ) ) 

DSTA{IBl)=OSTA( IBD+DSTl 
DSTNB=-( Z ( n-S)>:^AFX( I )-AMY( I ) 

43 DSTAUBNB )=DSTA{ IBNB)+DSTNB 

DU 42 J=NSP1,NS2 
K=J-NS 
DST=0, 

DO 41 1=1, NS 

DSTAT=-C ( I ,K)*AFY ( I )+B( I ,K)^AMX( I ) 

41 DST=DST+DSTAT 

42 DSTA{ J ) = DST-YY ( I B1 )“( YY{ 1BNB)-YY (IBl) ) Z ( K ) -S ) /OLL + Y Y ( K ) 

DSTA(NSB1 )=0.0 
DSTA{NSNB)=0,0 
OD 70 1=1, NS 

DSTN1=-(0-Z{ I ) )*AFY( I )-AMX( I ) 

DSTA(NSB1 )=DSTA(NSB1)+DSTN1 
DSTNB=“(Z(I)~S)=J=AFY( I) + AMX{ I ) 

70 DSTA(NSNB)=DSTA(NSNB)+DSTNB 

DSTA(NS2P1 )= TMZl*FD0T’i'=«'TNZtTMZ2-‘^FD0T + TMZ3 

DO 72 1=1, NS 

DSR=-(QME( I )*(GY*COSFAL ( I ) -GX»S I NF AL ( I ) )+ (CZl { I )^FDOT^*CZ( I )+ 
1CZ2(I )^f001) ) 

72 DSTA(NS2P1)=DSTA(NS2P1)+DSR 

DO 172 J=1,NS 
JNS=J+NS 
DO 172 1=1, NS 
INS=I+NS 

AROT( J, I )=AA{ J,I )’1'C0SAB( I ) 

ARQT( J, INS)=-AA( J, I )>^<SINAB{ I)^'Y( I ) 

AROT(JNS,I)= BB{JNS,I)>1'SINAB(I) 

AROT( JNS, INS)=BB( JNS, I ) ^COSAB { I ) ^Y ( I ) 

AR0T(NS2P1 , I )=AA(NS2P1, I )''5^C0SAB( I ) + BB (NS2P1» I )^SINAB( I ) 


00502000 

00503000 

00504000 

00505000 

00506000 

00507000 

0(J508000 

00509000 

00510000 

00511000 

00512000 

00513000 

00514000 

00517000 

00518000 

00519000 

00520000 

00521000 

00522000 

00523000 

00524000 

00525000 

00526000 

00527000 

00528000 

00529000 

00530000 

00532000 

00533000 

00534000 

00535000 

00536000 

00537000 

00538000 

00539000 

00540000 

00541000 

00542000 

00543000 

00544000 

00546000 


172 ARUT(NS2P1,INS)=-AA(NS2P1,I )^SINAB( I)*Y(I )+BB(NS2Pl» I)^'CUSAB( I )«Y( 00547000 



II) 00548000 

DO 173 J=1,NS 00549000 

TRIG=0. 00550000 

DO 174 I^ltNS 00551000 

INS =I+NS 00552000 

.I2NS=I+NS2 00553000 

I3NS=I+NS3 00554000 

DROT=AA{ J, I )*{YDUT( I )^Y( I3NS)+Y{ I2NS)^Y( 1 3NS ) I NAB ( I ) ) 005 55000 

174 TRIG='TRIG+DROr 00556000 

173 DRO( J)=TRIG+DSTA( J) 00557000 

DO 175 J~NSP1»N$2 00558000 

TRIG=0, 00560000 

DU 176 I=1,NS 00561000 

INS=I+NS 00562000 

I2NS=I+NS2 00563000 

I3NS=I+NS3 00564000 

DROT=~BB( J,I )=5^(XD0T( I3NS)+Y (I 2NS ) *Y { 1 3NS ) =:^COSAB ( I ) ) 00565000 

176 TRIG=TRIG+DROr 00566000 

175 DRO(J)=TRIG+OSrA( J) 00567000 

0R0(NS2P1)=D$TA(NS2P1) 00569000 

DO 177 I=^ltNS 00570000 

i INS=I+NS 00571000 

I2NS=I+NS2 00572000 

I3NS=I+NS3 00573000 

DROT=AA ( NS2P1 ♦ I )*( YDOT( I )*Y ( I3NS )+Y ( I2NS)-Y( I 3NS ) I NAB ( I ) ) ~B800574000 
KNS2P1 1 n^MXDUTd )^Y{ I3NS)+Y( I2NS)^‘‘Y( I 3NS ) ^:'CUS AB ( I ) ) 00575000 

177 DR0(NS2Pl )=0R0(NS2P1)+DR0T 00576000 

DO 39 J=ltNS2Pl 00577000 

39 AR0TU,NS2P1)=CC( J) 00578000 

FF=0,0 . 00579000 

KL = ISIMDD(51 ,IMS2P1, IfAROr tOROtFF, lA) 00581000 

. DU 600 1=1, MS 00582000 

INS=I+NS 00583000 

I2NS=I+NS2 00584000 

I3NS=I+NS3 • 00585000 

BD( I )=Y( I2IMS) 00586000 

BD{ INS)=Y{ I3NS) 00587000 

B0( I2NS)=ARUT{ I ,1) 00588000 

600 BD( I3NS)=AR0r( INS,1) 00589000 

BD ( NS4P1 ) = Y { NS4P? ) 00590000 

BU(NS4P2)=ARnr (NS2P1,1) 00591000 

l^RITE (6,620) (BD( I ) , I = 1,N) 00592000 



620 FORMAT UHl / / / 14X , 33HTHE APPROPRIATE DERIVATIVES BD , S// ( 1 P7D 15 . 6 ) 00593000 


1) 00594000 

IF (KL.NE*3) GO TO 560 00595000 

WRITE {6,540) KL 00596000 

540 FORMAK 1H1/1'0X,4HKL =11) 00597000 

CALL EXIT 00598000 

560 RETURN 00599000 

END 00600000 


Card Count 3l4lt 



SUBROUTINE BRGXY 
IMPLICIT REALMS (A-HtO-Z) 
CUMMUN/MAFU14/ FDOFIX 
COMMON/MAFUFl/OUMl(7l>) tNStNBt IB( 12) 
X /MAFUO/IOUMU2) ,KK<25) 


00223020 

00223030 

0022303f5 

00223040 

0022304S» 


.1 /MAFU5/DUM2i 300) ,BKMX( 25) , BKMY ( 25 ) t BCMX ( 25 ) , BCMY ( 25 ) t BCB ( 25 ) 00223050 

2 /MAFU6/BNB{25,6) tBBB(25t6) ,BROB(25,7) ,BKB(25,6),BHB(25,6) , 00223060 

3B0B(25,6) tBEB(25,6) 00223070 

4 /MAFU8/TULB 00223080 

5 /MAFUll/FOtFDOT 00223090 

6 /GARBG7/XX(25) ,YY(25) ,XB(25) ,YB(25) TXD0T(25)t Y00T(25) t 00223100 

7XBDUT(25) ,YBD0T(25) 00223110 

8 /GARBG8/XB0,XB1,XB2, YBOt YBl, Y82,BROXO,BROXltBROX2TBROYO, 00223120 

9BR0Y1 ,BR0Y2 , F6KGX0 , FBRGX 1 , FBRGX2 , FBRGYO t FBRGY 1 , FBRGY2 » I r IBI ,KKB 00223130 

FGSAVE=FD{JT 00223200 

FDUT=FDOr-FDOFIX 00223300 

10 DU 162 1=1, NB 00224000 

IBI=IB(I) 00225000 

IF (BCMX(IBI),NE*0) GO TO 91 00226000 

BCMX ( IBI ) =1 ,D-16 00227000 

91 XBDOT{ IBI )=XDOT( IBI ) / ( l + BCBUBI ) /BCMX( IBI ) ) 00228000 

; IF (BCMY( IBI ) JME.O) GO TO 101 00229000 

^ BCMY ( IB I ) = 1 .0-16 00230000 

101 YBDOTdBI )=YDOT( IBI)/( 1 + BCB( IBI )/BCMY(IBI ) ) 00231000 

IF(BCB( IBI ) .EQ.O. )BCB( IBI )=1.D-16 00234000 

KKB=KK(IBI) 00240000 

XB2=0.3D0^XX{ IBI ) 00241000 

XB1=0.1D0>5^XX( IBI ) 00242000 

BR0X2=0S0RT(XB2>)^*2+( YY{ IBI )/{BKMX( I B I ) / BKhY { I B I ) * ( XX { IBI )/XB2-l. ) 00243000 
1+1.))*^2) 00244000 

BR0X1=DSQRT(XB1«*2+(YY{ IBI) /{BKMX( I B I ) /BKMY ( I B I ) * ( XX( I B I ) /XBl-1 . ) 00245000 
l + l,))^jt^2) 00246000 

FBRGX2=(FD0T^(BNB< I B I , KKB ) +BBB ( I B I , KKB ) * { BR0X2-BRUB ( IBI ,KKB) ) ) + 00247000 

IBKB {IBI ,KKB ) ) BR0X2*>!M BHB ( IBI , KK6 ) -1 . ) + BDB ( I B 1 1 KKB ) +BEB ( I B I , KKB )/ 00248000 

2BR0X2)«XB2~BKMX( IBI )*( XX( IBI )-XB2) 00249000 

FBRGX1=( FDOT«(BNB{ 1 8 1 , KKB ) +BBB I I B I , KKB ) BRUX 1-BROB I IBI ,KKB ) ) ) + 00250000 

1BKB{ IB1,KKB) )*(BR0X1»>!'(BHB( I B I , KKB ) - 1 , ) +BDB ( I B I , KKB ) +BEB ( I B 1 1 KKB ) /0025 1000 
2BR0X1 )^.‘XB1-BKMX( IBI )*(XX( IBI )“XB1) 00252000 

52 XB0=XBi-FBRGXl/( FBRGX2“FBRGX1)*MXB2~XB1) 00253000 

BR0X0=0$QRr (X80**2+( YY{ I B I ) / ( BKMX ( I B I ) /BKMY ( I B I ) »!* { XX ( IBI )/XBO-l. ) 00254000 
1+1.)) *5:^2) 00255000 

FBRGX0=(FD0T^(6NB(I6I ,KKB)+BBB( I BI , KKB ) * ( BROXO-BROB{ IBI t KKB) ) ) + 00256000 



lbKB{ IBI ,KKB) )=5*(BKUX0^'^MBHB( lHl,KKb)-l. 
2BRUX0)*XB0-BKKX( IBI )>M XX( IBI )-XBO) 
P&RCEX=XBO/XX( IBI ) 

IF ( DABS ( l.-PHRCFX) .Lb. 1 .D-B )GUT01B2 
IF{DABS(PERCEX) .LT.1.U-8}GUT0152 
PERCEX = DABS { FBKGXO/ ( BKi'IX ( I B I ) -M XX ( I B I ) 
IF(PERCEX.Lr.TULB) GU TO 1B2 
IF {DABS (XB2 ).GE.DABS(XBl) )XB2=XB1 
XBl=XBO 
FBRGX2=FBKGX1 
FBRGXl = FBR-GXO 
GU TO 52 
152 XB(IBI)=XBO 

YB2=0.3D0*Y'Y( IBI ) 

YB1=0.1D0*YY{ IBI ) 

BKOY2=DSORT(YB2**2+(XX( IBI ) /( BKMY ( IBI ) 
1+1.) )^‘*2) 

BROYl=OSQRr (YB1^I^^'«2+(XX( IBI )/{ BKMY ( IBI ) 
1+1.))^*2) 

F8RGY2= ( FDUT*( BNB (IBI tKKB) +BBB{ IBI tKKB 
IBKBi IBI,KKB) ) ❖ ( BROY2** { 6HB ( IBI,KKB)-1. 
» 2BRDY2)^^YB2-BKMY ( I B I ) YY ( I B I ) -YB2 ) 

^ FBRGY1=(FUUT^MBNB( IBI tKKB)+BBB( IBI ,KKB 
IBKBdBI ,KKB) )>MBRQY1*^( BHB( IBI tKKR)-l. 
2BROY1 ):I^YB1 -BKMY ( IBI) ^(YY{ IBI )-YBl) 

64 YB0=YB1“F8RGY1/ ( FBRGY2-FBRGY 1 ) YB2-YB 
BRUYO=DSQRT( YBO^{^^'<2+( XX( IBI ) / ( BKMY ( IBI ) 
l+l.) 

FBRGY0=(FD0T^MBN8( I B I , KKB ) +BBB (I B I , KKB 
IBKB (IBI ,KKB ) ) ( BROYO** ( BHB ( IBI tKKB)-l. 
2BR0Y0) >:^YBO-BKMY ( I B I ) '^ ( YY ( I B I )-YBO) 
PERCEY=YBO/YY (IBI) 

IF(DABS( l.-PERCEY) . LE . 1 • D-8 ) GGT0162 
IF(DABS (PERCEY) .LT.1.D-8)GUT0162 
PERCEY=:DABS ( FBRGYO/ ( BKMY ( I B I ) >!« ( Y Y ( I B I ) 
IF(PERCEY.LT.TOLB) GO TO 162 
IF(DABS(YB2) .GE.DABS( YBl) )YB2=YB1 
YBl=YBO 
FBRGY2=FBRGY1 
FBRGYl=FBRGYO 
GO TO 64 
162 YB(IBI)=Y80 

FDOT=FOSAVE 

RETURN 

END 

Card Gouxio 


)+BDB( IBI tKKB )+BEB( IB I, KKB) 


■XBO) ) ) 


/BKMX( IBI YY( IBI ) /YB2-1 . ) 

/BKMX( IBI )=M YY( IBI ) /YBl-1. ) 

)^(BRUY2-BKOB( IBItKKB) ) )+ 
)+BDB( IBI,KKB)+BEB( IB I, KKB) 

)^MBRUY1-BRUB( IBItKKB) ) ) + 
)+‘BDB| IBI tKKB )+BEB{ IBItKKB ) 

1 ) 

/BKMX( IBI )^M YY( IBI ) /YBO-1. ) 

)>’d6RUY0-BRUB( IBItKKB) ) ) + 
)+BDB( IBItKKB)+BEB( IBItKKB) 


-YBO) ) ) 


/0025700U 
UU258000 
00258500 
00259000 
00259500 
00260000 
00265000 
00265500 
00267000 
00268000 
00269000 
00270000 
00271000 
00275000 
00276000 
00277000 
00278000 
00279000 
00280000 
00281000 
/00282000 
00283000 
00284000 
/ 00285000 
00286000 
00287000 
00288000 
00289000 
00290000 
/00291000 
00292000 
00292500 
00293000 
00293500 
00294000 
00299000 
00300000 
00301000 
00302000 
00303000 
00304000 
00305000 
00305500 
00306000 
00307000 


87 



SUBROUTINE INFLCO (C,B) 

IMPLICIT REALMS (A-H,0-Z) 

REAL^'8 MOF,MOM 
REAL Z 

DIMENSION DD(25), D(2£>)'t OL ( 25 ) , EE ( 23 ) , 
1SZ( 25 ) tZ 0(25) ,SZOL( 25) rZQOL{ 25) ,02(25) ,Z 
2SHERGA(25) ,R0F(25,25) , ROM ( 25 , 25 ) , AF AL E I ( 
2,C(25,25),B(25,25), Z(25), F0F(25, 

3) ,M0M{25,25) 

C0MM0N/MAFUF1/D0,D,QL, NS,NB, I B 
CUMM0N/MAFUF2/ SZ , OZ , ZO , SZOL , ZSOL , OZOL 
C0MMUN/MAFUF3/ IBl, IB2 
C0MM0N/MAFUF4/ Z 
COMMUN/MAFC/ EE , GG , E I 0 , G AK 

1 /SFP2/NSM1, IDUMK9) 

2 /GAR6G2/FOF,MUF,FOM,MOMtQLEI ,S0L2E 
3E,F,G,GA0L,THETAM,THETAF,0SQ,DDSQ,D1,D2, 

DATA PI/3.1415926535897932/ 

A=PI/4. 

E=A/16. 

F=4./3.D0 
i G=F/2. 

■J DO 200 J = 1,NSM1 
DSQ = D( J )»!^^:^2 
DDSQ=DD( J)*«2 
D1=DDSQ~DSQ 
D2=DDS0+DS0 

QLEK J)-OL( J )/{E*Dl^^D2^EE( J) + EIO{ J) ) 
S0L2EK J)=0.5* OL(J)^- QLEKJ) 

GAQ L=G AK ( J ) /QL ( J ) + A*GG (J ) 1 / { QL ( J ) F* ( 
1(D0( J)-D( J) ) ) ) ) 

SHERGA( J)=1./GA0L 

200 AFALEI (J ) =SHERGA ( J ) +G*OL ( J ) *S0L2E I ( J) 

DO 400 1=1, NS 
DU 400 J=1,NS 
FOF(I ,J)=0. 

MOF( I, J)=0. 


00601000 

00602000 

00603000 

00604000 

GG(25), EI0(25), GAK ( 25 ), 00605000 
SUL(25) ,QZUL( 25) , IB( 12) , 00606000 

25) ,0LEI (25) ,S0L2EI(25 ) 00606010 

25), M0F(25,25), FOM ( 25 , 2500607000 

00608000 

00613000 

, ZOOL, OMLOV, (OLL 00614000 

00615000 

00616000 

00617000 

00617030 

I ,ROF, ROM, AFALEI ,SH£RGA, A, 006 17060- 
I,J,K 00617090 

00617120 

00619000 

00620000 

00621000 

00622000 

00624000 

00624500 

00625000 

00625500 

00626000 

00626500 

00627000 

DDSQ=i^DD( J)~DS0*0( J) )/( 02*00630000 

00631000 

00632000 

00633000 

00642000 

00643000 

00643200 

00643400 


FUM(I ,J)=0. 

MOMU, J)=0. 

C(I,J)=0 
400 B(I,J)=0 

DO 140 1=1, IBl 


00643600 

00643800 

00644000 

00645000 

00646000 




IF(IBl.eO.l) GO TU 122 

00647000 

112 

K=:I + 1 

00654000 


DO 120 J=K»IB1 

00655000 


FOF(I,J) =-1,0 

00656000 


MOFUtJ) =Z(J)-Z(I) 

00657000 

120 

MOM(I tJ) = “1.0 

00659000 

122 

K=IB1+1 

00660000 


DO 130 J=K,IB2 

00661000 


FOF( I , J) = SZOL ( I ) 

00662000 


MOF(ItJ)=QZ{ J)«SZUL(I) 

00663000 


FOM( I, J)=QMLOV 

00664000 

130 

MOM(I,J)=ZQUL(J) 

00665000 

140 

CONTINUE 

00673000 


KK=IB1+1 

00674000 


DO 440 I=KK, IB2 

00675000 

412 

K=IB1+1 

00682000 


DO 420 J=K,I 

00683000 


• FOFtUJ) = QZOL( I) 

00684000 


MOF( I, J) = SZ( J )^i<OZOL ( I ) 

00685000 


FOMdtJ) =QML0V 

00686000 

420 

MOM(I,J) =ZSOL(J) 

00687000 


K=I + 1 

00688000 


IF(K.GT,IB2)G0T0440 

00689000 


DO 430 J=Kt IB2 

00690000 


FOFn,J) =SZOL(I) 

00691000 


MOFU ,J)==“ZQ( J)*SZOU I) 

00692000 


FOM( I,J)=QMLOV 

00693000 

430 

MOM(I ,J)=ZODL( J) 

00694000 

440 

CONTINUE 

00702000 


IF (IB2.EQ.NS)G0 TO 542 

00703000 


KK=IB2+1 

00704000 


DO 540 I=KKt NS 

00705000 

512 

K=IB1+1 

00712000 


DO 520. J=Kt IB2 

00713000 


FOFU,J) =OZOL(I) 

00714000 


MOFd rJ)=SZ( J}>l'QZOL( I ) 

00715000 


FOM(I,J)=bNLOV 

00716000 

520 

MOMdrJ) =ZSOL(J) 

00717000 


K=IB2+1 

00718000 


DO 530 J=K, I 

00719000 


FOFdtJ) =1, 

00720000 


MOFd,J) =Z{I)-Z(J) 

00721000 



b30 MOM(I,J) =1*0 00723000 

f>40 CONTINUE 00731000 

b42 DO 600 1=1, NS 00732000 

KOFU ,1 )=0. 00732200 

ROM( I, 1)=0. 00732400 

THETAF=0. 00732600 

THETAM=0. 00732800 

DO 600 J=2,NS 00733000 

ROF( I , J)=ROF{ I , J-1 )+0L( J-1)*THETAF+AFALEI ( J-1)*F0F{ I , J )+MOF( I, J)^ .00734000 
1S0L2EI ( J-1) 00735000 

RON( I, J)=ROM( I , J-1 )+0L( J-1)*THETAM+AFALEI( J~1 )*FOM( I, J)+MOM( 1,0)’!' 00736000 

1S0L2EI ( J-1 ) 00737000 

THETAF=THETAF + S0L2EI ( J~1 ) ’i'FOF ( I , J ) +OLE I { J-1)’:'M0F( I, J) 00738000 

600 THETAM=THErAM+S0L2EI ( J-D’i'FOM^ I , J )+QLEU J-1 I , J) 00739000 

DO 700 1=1, NS 00742000 

DO 700 J=1,NS 00743000 

C( I,J)=ROFn,J)-ROF(I,IBl)+SZOL( J)’!'(K0Fn,IB2)-R0F( I,IB1) ) 00748000 

700 B( I ,J )=ROM( I , J)“ROM{ I , I B 1 ) +SZOL { J ) ’M ROM ( I , IB2)~R0M( I , IBl) ) 00749000 

RETURN 00750000 

END 00751000 


Card Count lOli. 



SZHASS 

REAL*!'8 (A~H,0-Z) 


SUBROUTI'NE 
IMPLICIT 
REAL Z 

DIMENSION Z(2i5) ,QL(25) ,SZ( 25} ,0Z(25) t ZO ( 25 ) , SZGL ( 25 ) , ZSOL ( 
1Z0L(25) tZQOL (25) t DD ( 25 ) t D ( 25 ) r DN ( 25 ) , Q6LDNDI 25 ) ,DDPLD( 25 
25) tQlLDND(25) , QM ( 25 ) , AM ( 25 ) , 0 1 D ( 25 ) , AI U ( 25 ) , 0 1 RO ( 25 ) t A I RO ( 
DIMENSION EOC( 25) , ALF A ( 25 ) , BET A ( 25 ) ,GAMMA(25 ) 

1, IB(12) 

COMMON/MAFU2/ DN , AM , AI D , AI RO , ECC , ALF A , BET A , GAMMA r GX , G Y 

COMMON/MAFU12/ OM,QID,OIRO 

1 7SFP2/NSM1, IDUMK9) 

2 /GARBGl/QMASS,QLDNDD,QL2TQlLDND,DDL?DDPLDtQ6LDND,D2t 
3DD2,WEIT,-pDLARAtI 

COMMDN/MAFUFl/DD,D,QL,NS,NBt IB 

COMMON/MAFUF2/SZTQZ,ZQtSZOLtZSOLrQZOLTZOOLTQMLOVTOLL 
COMMON/MAFUF3/ IBl, IBNB 
CUMM0N/MAFUF4/Z/MAIFU/Q,S 
DATA PI/3,1415926535897932/ 

U=:4./3,D0 

W=PI/( 128. =1^386. 088) 

E=16.^W 
i Z(1)=0 

I DO 105 1=2, NS 

105 Z{I)=Z(I-l)+OLn“l) 

' Q=Z(IBNB) 

S=Z( IBl) 

DO 103 1=1, NS 
SZ(I)=Z(IB1)-Z(I) 

ZO(I)=Z(I)“Z(IBNB) 

103 QZ(I)=-ZQ(I) 

QLL=Z(IBNB)“Z(IB1) 

0ML0V=-1,/0LL 

DO 104 1=1, NS 

SZOL(I)=SZ(I)/QLL 
ZSOL( I )=-SZOL( I ) 

QZOLd )=QZ( n/QLL 

104 ZQOL( I )=-QZOL( I ) 

DO 50 I = 1,'NS 

DD2 = DD(I)^^2 

D2 = D(I):<c«2 

QL2 , = 0L(I)^>?'2 ■ 

QLDNOD =QL(I)^ DN(I)»}'(DD2 -D2 ) 


01496000 
01497000 
01498000 
25) , 001500000 

) ,DDL(201501000 


25) 


01502000 

01503000 

01503100 

01504000 

01505000 

01505100 

01505200 

01505300 

01506000 

01507000 

01508000 

01509000 

01510000 

01512000 

01514000 

01515000 

01518000 

01519000 

01520000 

01522000 

01521000 

01523000 

01525000 

01526000 

01527000 

Oi528000 

01530000 

01531000 

01532000 

01533000 

01534000 

01535000 

01536000 

01537000 

01538000 

0154ia00 

01542000 



06LDND(I) = W^^^OLONDD 

DDPLD(I) = 0D2 +D2 

DDUI ) = DDPLDU )+ U*QL2 

i)0 OlLDNDd) = E^QLDNDD 

QM(l)=QlLDNOa) + AM(1) 

QM(NS)=01LDND(NS-1) +AM(NS) 

OID(l) = Q6LDND(1)*DDL(1) + AID(l) 

QID(NS)= Q6LDND(NS-1)*DDL(NS-1) +AIO(NS) 

QIR0U)=2.*Q6LDND( 1)*DDPLD( l)+AIRO( 1) 
QIR0(NS)=:2,*Q6LDND(NS~1)*0DPLD(NS-1) +AIRO(N$) 

DO 55 I=2tNSMl 

QMU) =QlL0NDn-l)+01LDN0( I ) + AM(I) 

01 D (I )=06L0ND( I-D’^'DDLi I~1)+06L0ND( I )>!'DDL( I )+AID( I ) 

55 OIRO(I) = 2.^(Q6LDNDn-l)*D0PLD( I-1)+06LDIM0( I )^'^ODPLO( I ) ) 

62 QMASS=0.0 
P0LARA=0.0 
DO 40 1=1, NS 
QMASS=QMASS+QMU ) 

40 POLARA=POLARA+OIRO( I ) 

WEIT =386,088^QMASS 

WRITE (6,77) WeiT,QMASS,POLARA 

77 F0RMAT(1H0///,9X'T0TAL ROTOR WEIGHT, LB ='1PD13,4/ 9X,33HT0TAL 
IR MASS,(LB*SEC*=N2)/IN =1P013.4/ 9X,57HT0TAL ROTOR POLAR MASS 
2T OF INERTIA, LB5f=IN*SEC^*2 =1PD13.4/) 

RETURN 

END 


01543000 
01544000 
01545000 
01546000 
01547000 
01548000 
01549000 
01550000 
01551000 
01552000 
01554000 
01555000 
01556000 
01557000 
01558000 
01559000 
01560000 
01561000 
01562000 
01563000 
01564000 
R0TU01565000 
M0MEN01566000 
01567000 
01568000 
01569000 


+ AIRO( I ) 


Card Count 68 



SUBROUTINE PLUTKF) 

REAL F{i50tl2)t Y(2) 

COMMON/SFPl/RPM( 50) ,N POINT 

1 /GARBG4/Y,IrJ 

2 /MAFUFl/UUMU ISU^NB, 16112) 

C GET LIMITS OF F S RPM 

YID^l.ETO 

Y(2)=““1.E70 

DO 1.0 1 = 1, NB 

DO 10 J=1,NP0INT 

Y(1)=AMIN1(Y(1),F(J,I)) 

10 Y(2)=AMAX1(Y(2) ,F(J, U ) 

•CALL LRANGE(RPMd) , RPM ( NPO INT ) , Y ( 1 ) , Y ( 2 ) ] 
C PLOT EACH OF THE NB FUNCTIONS 

DO 20 1=1, NB 

CALL LRCURV<RPM,FU, I ) , NPO IN T , 2 , Y , 0 . ) 

CALL LRCNVT(IB(I),1,Y, 1,3,0) 

DO 20 J=1,NP0INT 

20 CALL LRLABL(Y,3,0,RPM(J),F{ J,I),0.) 

RETURN 

END 

PO 


00752000 

00753000 

00754000 

00755100 

00755200 

00757000 

00760000 

00761000 

00762000 

00763000 

00764000 

00765000 

00767000 

00768000 

00769000 

00769100 

00769200 

00769300 

00769400 

00770100 

00771000 


Card Count 21 



U O o o o 


SOLUTION TO A SYSTEM OF 1ST ORDER ORDINARY DIFFERENTIAL EQUATIONS RKADOOlO 
OF THE INITIAL VALUE TYPE* THE FOLLOWING METHODS ARE AVAILABLE RKAD0020 

1, ADAMS-MOULTON PREDICTOR-CORRECTOR FIXED INCREMENT RKAD0030 

2, ADAMS-MOULTON PRED I CTOR-CORREC TOR VARIABLE INCREMENT RKAD0040 

3, RUNGE-KUTTA {ALSU USED TO GENERATE STARTING VALUES FOR A-M METHDS ) RKAD0050 

SUBROUTINE RKAUAM { N , T , Y, H, IND , I T I M , TOL tNERR ) RKAD0060 

IMPLICIT REALMS (A-HtO-Z) RKAD0070 

REAL>^8 TtY,H,TOL RKAD0080 

DIMENSION Y( 1 ) ,F(102,7) t YB(102,5) , A ( 102 » 4 ) , YSAVE (102 ) RKAD0090 

N ORDER OF SYSTEM (IF RED I MENS I ON I NG REOUIREDt CHANGE NN IN DATA RKADOlOO 

STATEMENT AND ALSO THE 1ST SUBSCRIPT OF F AND YB IN DIMENSION RKADOllO 
STATEMENT). , FROM CALLING PROGRAMRKADOI 1 5 

T INDEPENDENT VARIABLE — UPON ENTRY TO RKADAM FROM CALLING RKAD0120 

PROGRAM X IS AT BEGINNING OF STEP. UPON RETURN TO CALLING RKAD0130 

PROGRAM X IS AT END OF STEP. RKAD0140 

Y SOLUTION VECTOR OF DEPENDENT VARIABLES AS A FUNCriON OF X RKAD0150 

H INCREMENT(ALGEBRAIC) — UPON ENTRY TO RKADAM FROM CALLING RKA00160 

PROGRAM H IS THE TRIAL INCREMENT FUR THIS STEP. UPON RETURN T0RKAD0170 
CALLING PROGRAM H IS THE TRIAL INCREMENT FOR THE NEXT STEP. RKA00180 
IND FLAG TO SELECT METHOD FROM CALLING PRUGRAMRKAD0190 

=0 ADAMS-MOULTON PREDICTOR-CORRECTOR VARIABLE INCREMENT H RKAD0200 

=1 RUNGE-KUTTA FIXED INCREMENT H RKAD0210 

=2 ADAMS-MOULTON FIXED INCREMENT H RKAD0220 

ITIM RESTART FLAG (APPLIES ONLY FOR IND=0t2) FROM CALLING P R0GRAMRKAD0230 
=+l RESTART WITH FORWARDSUN THE DIRECTION OF SIGN(H)) RKAD0240 

INTEGRATION BY RUNGE-KUTTA TO GET STARTING VALUES RKA00250 

=-l SAME AS +1 EXCEPT USES BACKWARDS (-SIGN(H)) INTEGRATION RKAD0260 
:=0 CONTINUE INTEGRATING RKAD0270 

TOL APPLIES ONLY TO IND=0. ALLOWABLE RELATIVE ERROR BETWEEN THE RKA00280 
PREDICTED AND CORRECTED SOLUTIONS. FROM CALLING PRUGRAMRKAD0290 

NERR ERROR FLAG RETURNED TO CALLING PROGRAM RKAD0300 

=0 solution is valid RKAD0310 

= 1 SOLUT.ION INVALID — IM IS INVALID OR ELSE H HAS GONE TO 0 RKAD0320 
DATA NN/102/ RKAD0330 

NERR=0 RKA00340 

DO 200 I=ltN RKAD0341 

100 YSAVE( I )=Y( I ) RKAD0342 

IF( IND.EO.l )GOT010 RKAD03B0 

IF( ITIM.EO.O)GOT0170 RKAD0360 

10 NS=0 RKA00370 

CALL OVERFL(K) RKAD0373 

TEST VALIDITY OF N RKAD0380 



IF(N.GE.1,AND*N.LE.NN)G0T040 
20 NERR=1 
30 DO 220 1=1, N 
220 Y( I )=0.5^(Y ( I )+YSAVE( I ) ) 

RETURN 

40 IF-(IND.NE.1)GOT05>0 
C KUNGE-KUTTA 

CALL RUNKUT(N,Htr,Y,Y,A) 

T=T+H 

G0T030, 

C AOAMS-MOULTON 

30 IFUTIM.LT.0)G0T0180 

C RESTART FORWARDS INTEGRATION (IN DIRECTION OF X+H 

. ISTFLG=1 

IF( IND.E0,’2) ISTFLG = 0 
XB=T 

D060I=i,N 
60 YB(Irl)=Y(n 
L=0 

70 00801=1,3 
T=XB+H*( I-l) 

S J-5-I 

^ CALL RUNKUT(N,H,T,Y,YB( 1,I+1),A) 

DO 75 K=1,N 

IF{DABS( YB(K, I+l ) ) . LE . 1 . D 1 2 ) G0TO73 
,H=H/10. 

GOTO 83 

73 IF(L.NE*O.AND.I.£Q,1)GOTU75 
F(K,J)=A(K,1) 

75 Y(K)=YB(K,I+1) 

BO CONTINUE 
T=T+H 

CALL FUND(N,T,Y,F) 

DO 2 1=1, N 

IF(Y(I).GEa,D14) GO TO 3 

2 CONTINUE 
GO TO 4 

3 RETURN 

4 CALL AOAMLT(N,T,Y,H, IND, ITIM,TOL,NERR, ISTFLG,F, A) 
IF{ ISTFLG.EQ,0)G0T0110 

H=H/2 
83 T=X6 


RKAD0390 

RKAD0400 

RKAD0401 

RKAD0402 

RKAD0411 

RKAD0420 

RKAD0430 

RKAD0440 

RKAD0450 

RKAD0460 

RKAD0470 

RKA00480 

RKAD0490 

RKAD0500 

RKAD0505 

RKAD0510 

RKA00520 

RKAD0530 

RKAD0535 

RKAD0540 

RKAD0560 

RKAD0567 

RKAD0570 

RKAD0575 

RKAD0577 

RKAD0579 

RKAD0581 

RKAD0583 

RKAD0585 

RKAD0590 

RKA00595 

RKA00605 

RKAD0607, 

RKAD0608 

RKAD0609 

RKAD0610 

RKAD0611 

RKAD0612 

RKAD0615 

RKAD0620 

RKAD0640 

RKAD0645 



c 


c 



CALL OVERFL(K) 




RKAD0650 


IF(K.E0.3)GUT0100 




RKAD0660 


00901=1 tN 




RKAD0670 

90 

Y('I)=YBn,l) 




RKAD0680 


L=^l . 




RKAD0685 


G0T070 




RKAD0690 

100 

H=0. 




RKAD0700 


G0TU20 




RKAD0710 


FOR ITIM = +1, FEED 

STARTING VALUES 

BACK TO 

CALLING PROGRAM ONE ATRKAD0720 


A TIME (RUNGE-KUrrA 

SOLNS 1ST 4 PTS 

AND THEN 

A-M SOLN 

FOR 5TH PT) RKAD0730 

110 

D0120I=ltN 




RKAD0740 

120 

YB( I ,5)=Y(I ) 




RKAD0750 


NS=2 




RKAD0760 

130 

T=X6+H*( NS-1 ) 




RKAD0770 


' D0140I = ltN 




RKAD0780 

i40 

Y( I )=YB( I tNS) 




RKAD0790 


NS=NS+1 




RKAD0800 


IF(NS.GT.5)NS=0 




RKAD0810 


GOT030 




RKAD0820 


CONTINUE INTEGRATION 

PROCEDURE (A-M) 



RKAD0830 

170 

IF(NS)190^190,130 




RKAD0840 

180 

ISTFLG=0 




RKAD08B0 

190 

CALL ADAMLTINtTTYtH, 

IND/ITIMtTOLrNERR, ISTFLG 

tF,A) 

RKAD0860 


G0TU30 




KKAD0870 


END 




RKAD0880 
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C 4TH ORDER RUNGE-KUTTA INTEGRATION FOR A SYSTEM OF 1ST ORDER, 

C ORDINARY DIFFERENTIAL EQNS. 

SUBROUTINE RU NKUT ( N , H, X, Y , YY, A ) 

SEE DIMENSION STATEMENT FOR LIMITATION ON ORDER OF SYSTEM 
CHANGE DIMENSION AS IS REQUIRED, I . E . , A { MAXORDER , 4 ) , VIMAXORDER) 
IMPLICIT REAL’i'B (A-H,0-Z) 

REALMS X,H,Y(1),YY(1) 

DIMENSION A( 102,4) ,V( 102) 

N = ORDER OF SYSTEM 
H = INTEGRATION STEP 

X = INDEPENDENT VARIABLE AT BEGINNING OF STEP 
Y = VECTOR OF DEPENDENT VARIABLES AT BEGINNING OF STEP 
YY = SOLUTION VECTOR OF DEPENDENT VARIABLES AT END OF STEP 
Xl=H/2. 

X2=X+X1 
X3~X+H 

CALL FUND(N,X,Y,A(1,1) ) 

DO 2 1 = 1, N 

IF(Y( I ) .GE,loD14) GO TO 3 
2 CONTINUE 
GO TO 4 
H 3 RETURN 
ov 4 DO 10 1 = 1, N 

10 V{I)=Y(I)+X1^J^A(I,1) 

CALL FUND(N,X2, V,A( 1,2) ) 

DO 12 1=1, N 

IFIYU ) .GE.1.D14) GO TO 13 

12 CONTINUE 
GO TO 14 

13 RETURN 

14 DO 20 1=1, N 

20 Vn )=Y(I )+Xl>l«A( 1,2) 

CALL FUND(N,X2,V,A{1,3) ) 

DO 22 I=1,’N 

IF(Y(n.GE,l.D14) GO TO 23 

22 CONTINUE 
GO TO 24 

23 RETURN 

24 DO 30 1=1, N 

30 vn)=Ym+H^;^A(i,3) 

CALL FUND(N,X3, V,A( 1,4) ) 

DO 32 1=1, N 


RUNKOOlO 

RUNK0015 

RUNK0020 

RUNK0022 

RUNK0024 

RUNK0025 

RUNK0030 

RUNK0040 

RUNK0050 

RUNK0060 

RUNK0070 

RUNK0080 

RUNK0090 

RUNKOlOO 

RUNKOllO 

RUNK0120 

RUNK0130 

RUNK0131 

RUNK0132 

RUNK0133 

RUNK0134 

RUNK0135 

RUNK0140 

RUNK0150 

RUNK0160 

RUNK0161 

RUNK0162 

RUNK0163 

RUNK0164 

RUNK0165 

RUNK0170 

RUNK0180 

RUNK0190 

RUNK0191 

RUNK0192 

RUNK0193 

RUNK0194 

RUNK0195 

RUNK0200 

RUNK0300 

RUNK0310 

RUNK0311 



IF(Y(I).GE.1*D14) GU TO 33 RUNK0312 

32 CONTINUE RUNK0313 

GO TO 34 RUNK0314 

33 RETURN RUNK0315 

34 DO 40 1=1, N RUNK0320 

40 YYU )=Y( I )+H>:^( A( I ,l)+2.*( A( I,2)+A( I , 3 ) ) +A ( 1 , 4 ) ) /6. 0 RUNK0330 

RETURN RUNK0340 

END RUNK0350 
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1 . 

2 . 


4 . 


AOAMS-MUULrUN INTbCKAffiK FUR A SYSrFM OF 1ST ORDER ORDINARY ADAMOOlO 

DIFFERENTIAL EQUATIONS OF THE INITIAL VALUE TYPE, AUAM0020 

CHOICE OF FIXED UR VARIABLE I NCREiMENT I NG , A0AM0030 

IF VARIABLE INCREMENTING THE FOLLOWING RULES WILL APPLY ADAM0040 

DEFINE YP=PREDICTOR SOLUTION VECTOR ADAM0050 

DEFINE YC=CORRECTGR SOLUTION VECTOR ADAMU060 

DEFINE R£ = UIFF. RATIO OF YP S YC IF ABS(YC).GT.l ELSE JUST D I FF . ADAM0070 
IF TOL^*^0.O2.LE.RE.LE.T0L IS TRUE THEN H IS UNCHANGED AND YC IS SULADAMOOBO 
IF REm.GT.rOL FOR ANY I OF RE THEN H IS HALVED AND YP AND YC AREADAM0090 
RECOMPUTED. HALVING THE INCREMENT IS NOT RESTRICTED, ADAMOlOO 

THIS STEP. H IS REPLACED BY AND RETURNED (WITH YC) AS NEW ADAM0120 

INCREMENT FUR THE NEXT STEP, H MAY BE DOUBLED ONLY AFTER 4 ADAM0130 

SUCCESSIVE STEPS USING THE SAME INCREMENT (AN ATTEMPT TO MAINTAIN ADAM0140 

STABILITY IN THE SOLUTION). ADAM0150 

IF H IS HALVED AN ENTIRE SET OF DERIVATIVES ARE COMPUTED USING ADAM0L60 
BACKWARDS (IN THE DIRECTION OF ~SIGN(H)) INTEGRATION BY RUNGE-KUT AADAMO 1 70 


IF H IS DOUBLED PREVIOUS SAVED DERIVATIVES ARE USED. 


SUBROUTINE ADAML T ( N , X , Y , H , IND , IT I M , TOL r NERR » I S T FLG » F r A ) 

IMPLICIT REAL=i^8 (A-H,0~Z) 

REAL^:<8 X,Y,HtTOL,F 

DIMENSION Y( 1 ) , F( 102t7) , YP ( 102) rYCI 102) » A( 102,4) 

SEE COMMENTS IN SUBROUTINE RKADAM FOR DESCRIPTION OF ARGUMENTS. 

IF REDIMENSIONING IS DONE IN RKADAM THEN NN MUST BE CHANGED 
ACCORDINGLY IN FINN, 7), YP(NiM), AND'YC(NN) IN ADAMLT DIMENSION STMADAM0260 
IF( ITIM.NE.0)GUTU60 ADAM0270 


ADAM0180 

ADAM0190 

ADAM0200 

ADAM0210 

ADAM0220 

ADAM0230 

ADAM0240 

ADAM0250 


IF( IND.E0.2 )GUT010 
IFdC.EO.-l )GUT030 
10 D020I=1,N 

F(I,6)=F(I,5) 

F(I,5)=F(I,4) 

F(I,4}=F(I,3) 

F(I,3)=F(I,2) 

20 F{ I ,2)=F( I ,1) 

G0T050 

DOUBLE INCREMENT BEING ATTEMPTED THIS STEP (THIS ENTRY) 
30 IC=0 

U040I=1,N 

F(I,3>=F(I,4) 

40 F( I,4)=F(I ,6) 

bO CALL FUND{N,XrY,F{ Id) ) 

G0T090 


ADAM0280 

A0AM0290 

ADAM0300 

ADAM0310 

AUAM0320 

A0AM0330 

ADAM0340 

AUAM03b0 

ADAM0360 

ADAM0370 

ADAM0380 

ADAM0390 

ADAM0400 

ADAM0410 

ADAM0420 

ADAM0430 



Kt5 I AK i 

60 IC=0 

IF(ITIM.Gr,0)GQT090 
00 70 1=1, N 
70 YP(I)=Y(I) 

GET NEW SET OF DERIVATIVES BY BACKWARDS INTEGRATIONS 
XB=X 

00801=1,3 

CALL RUNKUT (N,~H,XB,YP,YP,A) 

XB=X-H^I 
DO 78 K=1,N 
78 F(K,I)=A(K,1) 

80 CONTINUE 

CALL FUN0(N,XB,YP,F(1,4) ) 

90 HH=H/24.D0 

PREDICTOR SOLUTION 
001001=1, N 

YP( n = Y{ I 55.D0*F{ I, 1)-69,D0*F( 1 , 2 ) + 37 . 00^‘F { 1,3) 

CALL FUND(N,X+H,YP,F( 1,7) } 

CORRECTOR SOLUTION 
001401=1 ,N 

YC( I ) = Y( I )+HH>lM 19.D0>l''F( 1 , 1 ) -5 . DO^F (I , 2 ) +F { 1 , 3 ) +9 . DO^^F 
TEST FOR FIXED INCREMENT OPTION 
I.F( IN0,EQ.0)GOT0145 
X = X+H 
GOT0170 

TEST RELATIVE ERROR 
S=1 

001501 = 1 ,N 
T=DABS ( YC ( I )~YP( I ) ) 

U=DMAX1 (DABS(YC( I ) ) ,1.00) 

V=U*T0L 
W=V*0.02D0 
IF(T.GT.V)G0TU200 
IF{W.LE.r )S=0.00 
CONTINUE 
ISTFLG=0 
X=X+H • 

TEST IF 4. STEPS HAVE 6 LAP SEO . US I NG SAME INCREMENT FUR 
IF{IC.LT.3)GUT0160 
IF(S.EQ.0)G0T0170 
SET H TO 2*H FOR NEXT STEP 


100 

130 


140 


145 


150 


AUAM0440 
AOAM0460 
A0AMO470 
A0AM0475 
A0AM0477 
( RUNGE-KUTT A ) A0AM0480 
ADAM0490 
A0AM0500 
A0AM0510 
AOAM0520 
ADAM0530 
A0AM0532 
ADAM0535 
ADAM0537 
ADAM0540 
A0AM0550 
A0AM0560 
~9.D0*F( 1,4) )A0AM0570 
A0AM0650 
A0AM0660 
ADAM0670 
(1,7)) ADAM0680 

A0AM0682 
ADAM0684 
A0AM0686 
ADAM0688 
AOAM0690 
AUAM0700 
A0AM0710 
ADAM0720 
ADAM0730 
ADAM0740 
A0AM0750 
A0AM0760 
A0AM0770 
A0AM0780 
A0AM0790 
A0AM0800 
OOUBLNG TESTA0AM0810 
A0AM0820 
ADAM0830 
ADAM0840 


IC=-1 
H=2.D0*H 
G0T0170 
160 IC=1+IC 
170 D0180I=1,N 
180 Y(I)==YC(I) 

G0T0120 

200 IFnSTFLG.fME,0)G0T0120 
C HALVE THE INCREMENT AND RECOMPUTE 
H=H/2.D0 
CALL OVERFL(K) 

IF(K.NE.3)GUTU60 

H=0 

NERR=1 
120 RETURN 
END 


ro 


8 


Card Comit 100 


ADAMOSbO 

ADAM0860 

ADAM0870 

ADAM0880 

ADAM0890 

ADAM0900 

ADAM0910 

ADAM0920 

AUAM0930 

ADAM0940 

ADAM0950 

ADAM0960 

ADAM0970 

ADAM0980 

ADAM0990 

ADAMIOOO 



201 



SUBROUTINE T IME ( T , H, TA t IT IN ) 

00000100 


IMPLICIT REALMS 

( A-H,U-Z) 

00000200 


IF( ITIM.EQ.O) GO TO 10 

00000300 


TA=0.5>i^H 


00000400 


IC0UNT=1 


OOOOObOO 


RETURN 


00000600 

10 ' 

■ IC0UNT=IC0UNT + 1 


00000700 


IFnCOUNT.EO.2) 

GO fO 2 

00000800 


IF( IC0UNT.E0.3) 

GO TO 3 

00000900 


IF( IC0UNT.E0.4) 

GO ro 4 

00001000 


IF{ ICOUNT.GE*^) 

GO TO 5 

00001100 

2 

TA = 1 .2!>*H 


00001200 


RETURN 


00001300 

3 

TA=2.125*H 


00001400 


RETURN 


00001500 

4 

TA = 3.0625=^'H 


00001600 


TSAVE=T 


00001700 


RETURN 


00001800 

5 

TA=TA+0.5^MT“TSAVE) 

00001900 


TSAVe==T 


00002000 


IC0UNT=IC0UNT-1 


00002100 


RETURN 


00002200 


END 


00002300 


Card Count 23 



ooooooonooooooor 


C 


C 


1 




6 


10 


SUBPROGRAM TO SOLVE SIMULTANEOUS LINEAR EQUATIONS 
ARGUMENTS- 

DATE- 1/13/67 

DSM 
NE 
NC 
A 
B 

DET ■ 

C 

, ISIMEO 

IF NC IS NEGATIVE, THE INVERSE OF THE COEFFICIENT 
MATRIX IS REQUIRED, MATRIX B IS SET UP AS IDENTITY, 
FUNCTION ISIMDD(DSM, NE, NC, A, B, DET, C ) 

LOGICAL DVO 

INTEGER DSM, C, T, SUBl, SUB2, R, D 
DOUBLE PRECISION . B, PIVOT, DET, S 
DIMENSION B{1),C(1) 

INITIALIZE 
N = NE 

D = DSM 
M = lABS(NC) 

ISIMDD = 1 

DVO = .FALSE, 

DU 1 I = l^N 
C( I ) I 

IF(NC) 5, 15, 15 
INVERSE REQUIRED 
SUB2 = 0 
DO 10 J = 1,N 
SUBl = SUB2 
DO 6 I = 1,N 
SUBl = SUBl + 1 
B(SUBl) = 0.0- 
SUBl = SUB2 + J 
B(SUBl) = l.ODO 
SUB2 = SUB2 + D 
GO TO 15 

ENTRY IDETDDIDSM, NE, A, DET) 


MODIFIED FOR COMPILATION IN RELEASE 14 

dimensioned size OF COEFFICIENT 'MATRIX 
ACTUAL NUMBER OF EQUATIONS FUR THIS CALL 
NUMBER OF COLUMNS IN CONSTANT MATRIX 
COEFFICIENT MATRIX 
CONSTANT MATRIX 

INPUT - SCALE FACTOR, OUTPUT - FACTOR TIMES 
DETERMINANT VALUE UF COEFFICIENT MATRIX 
TEMPORARY STORAGE FOR SUBROUTINE 
RETURNS 1 IF OK, 2 IF OVFLO, 3 IF SINGULAR 


AWCU0030 

AWCU0040 

AWCU0050 

AWCU0060 

AWCU0070 

AWCU0080 

AWCU0090 

AWCUOlOO 

AWCUOllO 

AWCU0120 

AWCU0130 

AWCU0140 

AWCU0150 

AWCU0160 

AWCU0170 

AWCU0180 

AWCU0190 

AWCU0200 

AWCU0210 

AWCU0220 

AWCU0230 

AWCU0240 

AWCU0250 

AWCU0260 

AWCU0270 

AWCU0280 

AWCU0290 

AWCU0300 

AWCU0310 

AWCU0320 

AWCU0330 

AWCU0340 

AWCU0350 

AWCU0360 

AWCU0370 

AWCU0380 

AWCU0390 

AWCU0400 

AWCU0410 

AWCU0420 

AWCU0430 

AWCU0440 



'DOUBLE^' Pk EC IS ION A 
DIMENSION A(l) 

IN = NE 

D = DSM 

IDETOD == 1 

DVO = •TRUE. 

C START MAIN LOUP 

13'D0 1000 L = ItN 
LPi = L+ 1 
DO 40 I = LtN 
PIVOT = O^ODO 

SUBl = (L-1) * D + I 
SUB2 = SUBl 
DU’20 J = L,N 

IF(DABS(PIVOT) *GE. DABS ( A ( SUB 1 ) ) ) 
PIVOT = A(SUBl) 

JB = J 

20 SUBl = SUBl + D 

C COMPUTE DETERMINANT 

CALL OVERFL(T) 

DET = DET * PIVOT 
IF( .NOT, DVO) GO TO 24 
CALL OVERFL(T) 

IF(T .EQ. 1) IDETDD = 2 
C TEST FOR SINGULAR MATRIX 

24 IF(PIVOT ,EQ. O*OD0)GO TO 2000 

DO 25 J = L,N 

A(SUB2) = A(SUB2) / PIVOT 

25 SUB2 = SUB2 + D 
IF (DVO) GO TO 35 

SUBl = I 
DO 30 J = 1,M 
B(SUBl) = B(SUBl) / PIVOT 
30 SUBl = SUBl + D 

35 IF (I ,E0. L) JP = JB 
40 CONTINUE 
C INTERCHANGE COLUMNS 

100 IF (JP .EO. L) GO TO 260 
IF (DVO) GO TO 110 
T = C(L) 

C(L) = C(JP) 

C(JP) = T 


AWCU0450 

AWCU0460 

AWCU0470 

AWCU0480 

AWCU0490 

AWCU0500 

AWCU0510 

AWCU0520 

AWCU0530 

AWCU0540 

AWCU0550 

AWCU0560 

AWCU0570 

AWCU0580 

GO TO 20 AWCU0590 

AWCU060() 

AWCU0610 

AWCU0620 

AWCU0630 

AWCU0640 

AWCU0650. 

AWCU0660 

AWCU0670 

AWCU0680 

AWCU0690 

AWCU0700' 

AWCU0710 

AWCU0720 

AWCU0730 

AWCU0740 

AWCU0750 

AWCU0760 

AWCU0770 

AWCU0780 

AWCU0790 

ANCU0800 

AWCUOSIO 

AWCU0820 

AWCU0830 

AWCU0840 

AWCU0850 

AWCU0860 



110 

R = D L - D 


AWCU0870 


T = D * JP - D 


AWCU0880 


DO 120 I = 1,N 


AWCU0890 


SUBl = R + I 


AWCU0900 


SUB2 = T + I 


AWCU0910 


S = A(SUBl) 


AWCU0920 


A(SUBl) = A(SUB2) 


AWCU0930 

120 

A(SUB2) = S 


AWCU0940 


OET = -DET 


AWCU0950 

C 

REDUCE PIVOT' COLUMN 


AWCU0960 

260 

R = 0# L - D 


■ AWCU0970 


DO 400 I = ItN 


AWCU0980 


IP = R + I 


AWCU0990 


PIVOT = AUP) 


AWCUIOOO 


IF (I .EQ. L .OR. PIVOT .EQ. 0.0) GO TO 400 

AWCUlOlO 


SUBl = L 


AWCU1020 


SUB2 == I 


AWCU1030 


DO 360 J = 1,N 


AWCU1040 

ro 

IF (J .LT. LPl) GO 

TO 300 

AWCU1050 

o 

tr- 

S = PIVOr A(SUBl) 

AWCU1060 


A(SUB2) == A(SUB2)' 

- S 

AWCU1070 


IF(.DABS(AiSUB2) ) ,LT .■ D ABS ( 3 . 0E-8^S ) ) A(SUB2) = 0.0 

AWCU1080 

300 

IF (DVO .DR. J .GT. 

M) GO TO 350 

AWCU1090 


B(SUB2) = B(SUB2) 

- PIVOT * B(SUB^l) 

AWCUllOO 

350 

SUBl = SUBl + D 


AWCUlllO 

360 

oUB2 = SUB2 + D. 


AWCU1120 

400 

CONTINUE 


AWCU1130 

1000 

CONTINUE 


AWCU1140 


IF. (DVO) GO TO 1500 


AWCU1150 

C. 

REARRANGE VARIABLES 


AWCU1160 

1100 

DO 1201 L=1»N 


AWCU1170 


SUBl = C(L) 


AWCUllBO 


SUB2 = L 


AWCU1190 


DO 1200 J = 1,M 


AWCU1200 


A(SUBl) = B(SUB2) 


AWCU1210 


SUBl = SUBl + D 


AWCU1220 

1200 

SUB2 = SU62 + D 


AWCU1230 

1201 

CONTINUE 


AWCU1240 

1500 

RETURN 


AWCU125Ci 

C 

SINGULAR COEFFICIENT MATRIX 

AWCU1260 

2000 

IF(DVO) GO TO 3000 


AWCU1270 

ISIMDD = 3 


AWCU1280 


GO TO 1500 


AWCU1290 

3000 

IDETDD = 3 


AWCU1300 


GO T(D 1500 


AWCU1310 


END ’ 


AWCU1320 



AWCG TITLE » TIMEV - READ ELAPSED TIME IN SECONDS 

CUUiMTV START 0 

s}t s;s ^ aj: 5|£ sic * Jjs ^ >;c j!c # 5^c ;{t « >Sc # pjc sit s|« :;c s;c # ^ :<«:{« sis :jc ***>!«* * 

❖ 

❖ ROUTINE NAME - TIH6V “ READ ELAPSED TIME 

DATE - 02/01/68 UPDATED 04/10/68 FOR RELEASE 14 

* NORTH AMERICAN AV I AT I ON , I NC • — CORPORATE LIBRARY ROUTINE « 

» 5j? * j}£ j}t # :;e a;c 5J: jjc 3|c :{c # s^t ^ jjs *:{£:{£# 5>: a}: * at: :^s 5js jf: 4: 5<« * ^ **»!« 5{« ****:!«***❖ ^ ’1' * ’i* ^ * 

SPACE 4 

sj: a;: at: 5ii s!e St: s|t ajt >Ji s:« * * ❖ ❖ # >1« >!« ❖ sjt 5j< at: # * aj: ^ # atJ ❖ iJs ❖ ilt ❖ ❖ * ^ ❖ 5>: * * * * * ’J' * ’I' * * ^ * =*' * ’?^ * =4^ * * * >5^ * 

aU 

^ FORTRAN LIBRARY ROUTINE 

a!i 

* CALL COUNTV 

* THE TIME OF DAY IS SAVED WITHIN THE CUUNTV ROUTINE 

❖ WHICH IN EFFECT SETS A PSEUDU-FIMER TO ZERO. 

❖ 

* CALL TIMEV (T) 

* THE TIME INTERVAL IN SECONDS SINCE THE LAST CALL COUNTV 

>:^ IS STORED IN LOCATION T AS A SINGLE PRECISION FLOATING 

POINT NUMBER. 

alt 

* RESTRICTIONS - NOT REUSABLE BY ANOTHER TASK SINCE COUNTV 

STORES TIME OF DAY IN A LOCATION WITHIN THE ROUTINE. 

a^c 

* REQUIRES THE SUPERVISOR MACRO 'TIME* 

* 

a;: :<£ a;£ a^ at: a:; ajs ajt : 4 : ajs ^ :^c a;: a|t a^ a:e a^£ a;c a!: a:« a:« a^ a;: a|s a|c aj: aic at: a:e at: a;: aji at: aj: at: at; » a;c a|£ a^ at: aje a’^ at; aj: a^c a{£ a^s ^ a;c a|« a;« aj: * * a}: a[: at: a,*: aj: a[e a|£ a;: :}: a;£ a|c at: a;e * * 

EJECT 

❖ MAKE IT LOOK LIKE THE TIMER IS SET TO ZERO 

ENTRY TIMEV 

ENTRY TIMERV 

ENTRY COUNTV 

SAVE (14,12) ,, COUNTV 

BALR 10,0 

USING *,10 

ST 13,SAVe+4 

LA 2, SAVE 

ST 2,8(13) 

MVI FSTSW,1 SET FLAG TO SAY COUNTV WAS CALLED 

* XOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOXOX 


AWCG0030 

AWCG0040 

AWCG0050 

AWCG0060 

AWCG0070 

AWCG0080 

AWCG0090 

AWCGOlOO 

AWCGOllO 

AWCG0120 

AWCG0130 

AWCG0140 

AWCG0I50 

AWCG0160 

AWCG0170 

AWCG0180 

AWCG0190 

AWCG0200 

AWCG0210 

AWCG0220 

AWCG0230 

AWCG0240 

AWCG0250 

AWCG0260 

AWCG0270 

AWCG0280 

AWCG0290 

AWCG0300 

AWCG0310 

AWCG0320 

AWCG0330 

AWCG0340 

AWCG0360 

AWCG0360 

AWCG0370 

AWCG0380 

AWCG0390 

AWCG0400 

AWCG0410 

AWCG0420 

AWCG0430 

AWCG0440 




TIME 

TU 

TIME IN REG 0 



AWCG0450 


ST 

0,TZERG 




AWCG0460 


L 

13,SAV£+4 




AWCG0470 


LM 

14,12tl2{13) 




AWCG0480 


MVI 

12(13) rX»FF' 




AWCG0490 


LA 

15,0 




AWCG0500 


BR 

14 

RETURN 



AWCG0510 


EJECT 





AWCG0520 

KEAD 

ELAPSED TIME IN SECONDS 




AWCG0530 

timerv 

EQU 

❖ 




AWCG0540 

TIhEV 

SAVE 

(14,12),,TIMEV 




AWCG0550 


BALR ~ 

10,0 




AWCG0560 


USING 

^,10 




AWCG0570 


ST 

13,SAVE+4 




AWCG0580 


LA 

•2, SAVE 




AWCG0590 


ST 

2,8(13) 




AWCG0600 


L 

4,0(1) 

LOG OF USERS TIME CELL 



AWCG0610 


TIME 

TU 

TIME IN REG 0 



AWCG0620 

lo' 

TM 

FSTSW, 1 

DID COUNTV GET^ CALLED 



AWCG0630 


BNZ 

T1 



(Nl) 

AWCG0640 


ST 

0,TZERU‘ 

COUNTV WASN»T CALLED 


(Nl) 

AWCG0650 


MVI 

FSTSW, 1 SET FLAG 

TO PRETEND COUNTV NOW BEING 

CALLED 

(Nl) 

AWCG0660 


SER 

2,2 

ZERO FL PT REG 


(Nl ) 

AWCG0670 


B 

T3 



(Nl) 

AWCG0680 



* 



(Nl ) 

AWCG0690 

11 

SL 

0,TZER0 

COUNTV WAS CALLED 


(Nl) 

AWCG0700 


BC 

3,T2 

IS DIFFERENCE NEGATIVE 


(Nl ) 

AWCG0710 

12 

AL 

0,DAY 

YES ADD 24 HRS 


(Nl) 

AWCG0720 

ST. 

0,BirS2 

ELAPSED TIME IN REG 0- 


(Nl) 

AWCG0730 


LO 

2, BITSl 

ELAPSED TIME IN FREG 2 


(Nl) 

AWCG0740 

T3 

DD 

2, FACTOR 

CONVERT TIMER UNITS TO SECONDS. 

(Nl) 

AWCG0750 

STE 

2,0(4) 

STORE IN USERS TIME CELL 



AWCG0760 


L 

13,SAV£+4 




AWCG0770 


LM 

14,12,12(13) 




AWCG0780 


MVI 

12(13), X'FF* 




AWCG0790 


LA 

15,0 




AWCG0800 


BR 

14 

RETURN 



AWCG0810 


EJECT 





AWCG0820 

FSTSW 

DC 

X»0» 

SET FIRST TIME THRU 



AWCG0830 

FACTOR 

DC 

D»38400' 

3()0^2»i'»1^7= 38400 


(Nl) 

AWCG0840 

BITSl 

DC 

X'4E000000* 

l~Sr HALF OF DQUBLE-WORD 

•BITSl' 

' (Nl) 

AWCG0850 

BITS2 

DC 

X»00000000' 

2~ND HALF OF DOUBLE-WORD 

•BITSl' 

' (Nl) 

AWCG0860 



DAY DC X*C5C10000» =3317760000= 38400=«‘86400= 300^i<2*^:'7*60*60^.‘24 ( N 1) AWCG0870 

TZ6K0 DC F'O^ FIRST TIME READING' AWCG0880 

SAVE DC 18F»0» SAVE AREA ANCG0890 

^'THE TIME TU MACRO RETURNS THE TIME OF DAY AS 32-BIT UNSIGNED INTEGER, AWCG0900 
^BIT 31= l/(300^2^’:'7) SEC.= 26 MICRO-SEC. AWCG09i0 

❖bit 24= 1/300 SEC, AWCG0920 

*BIT 0= 2**'24/300 SEC.= 15.5 HOURS AWCG0930 

❖MAX, TIME = 2**25/300 SEC. = 31 HOURS WHICH IS 6N0U.GH TO CONTAIN THE AWCG0940 

❖ TIME OF DAY BASED ON A 24-HOUR CLOCK. AWCG0950 

❖MAX, RESOLUTION = 1/60 SEC, STANDARD OR 26 MICRO-SEC. FOR AN OPTIONAL AWCG0960 

❖ HIGH-RESOLUTION TIMER WHICH IS NOT STANDARD AT MUST INSTALLATIONS. AWCG0970 

END AWCG0980 

/❖ AWCG0990 


Q&rd Count ’97 



